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This is getting closer all the time. 


YOU CANNOT 
MEAN... 


Super Toolkit IT from the bottom. 


Three major new productions 
from PDQL are now ready for 
release. Hardback and Finder, 
for hard disc users, have been 
held back waiting for both the 
Miracle Systems and Rebel 
hard disc software to reach a 
mutually stable state. Hard- 
back is a multi-tasking file 
Management controller for 
hard disc, allowing Total Save, 
Since (the last) Save, by Direc- 
tory and Save by Marking. It 
can deal with files of a size ex- 
ceeding one or two floppy discs, 
as well as zero-length files, 

Features also include flex- 
ible windows, file deletion, 
viewing, saving and restoring, 
directory printouts, file details 
display and file or file-content 
string search, The package is 
fully Thor-compatible and 
costs £35, 

SuperBasic C-Port is the 
improved version of Basic C- 
Port re-written to handle struc- 
tured and unstructured Super- 
Basic source files and ready for 
ANSI, lattice or PDQ-C com- 
pilation. 

The program is a compiler, 
translating from SuperBasic to 
C. The C-Ported source file can 
be compiled for more effective 
use of the QL or, alternatively, 
DiscOvered for compilation in 
an IBM, CPM or BBC environ- 
ment. 

SuperBasic C-Port costs £79, 
with additional toolkit modules 
for Toolkit II or Turbo avail- 
able at £30 each. 

PDOQ-C is a fast C compiler 
comparable with the Atari Lat- 
tice C. The program has a large, 
tested and documented library 
and is designed to handle any size 
of program subject to memory 
restriction. PDQ-C costs £79. 

Orders and enquiries to 
PDQL, 1 Heaton House, Cam- 
den Street, Birmingham B1 
3BZ. 
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CENE! 


QView will hold 


Minerva payments 


Minerva is the ‘new and 
improved’ QL operating sys- 
tem from QView. Copies will 
be supplied for £30 to users - 
£25 to current Quanta or 
QLSub members - who can 
send a microcassette or disc — 
3.5in. or $.25in. — containing 
an image of their original QL 
ROM. That is to ensure that 
customers already possess a 
copy of Qdos and are entitled 
to use it. Minerva then acts as 
an update to Qdos. Minerva is 
supplied on EPROM. Microd- 
tives and discs will be returned 
with any information on subse- 
quent changes in Minerva. 
QView is advertising non- 
solderable installation — the 
ROM rests in an IC socket —~ 
faster TRAP entry, faster sche- 
duler, faster floating point 
arithmetic, faster string man- 
ipulation and concatenation, 
faster program search - 
GOTO, PROC call and so on - 
a major rewrite giving faster 
and more accurate graphics, 
faster RAM test for Trump 
Card owners, second screen via 


a new MODE command and 
TRAP, COMPOSE foreign 
characters and extended char- 
acter set — including Greek - 
SuperBasic TRACE hooks 
including single step, upside- 
down SCALE, ATAN (x,y) to 
ATAN (y,x) faster DATE pro- 
cedures with more flexible 
parameters, implementation of 
string and integer SELECTS, 
FI/F2 auto-start after 30 
second timeout, F3 restart with 
second screen enabled, trap- 
ping of line 1010 and 1111 
emulator exceptions, extra 
task and screen switching keys, 
warm reset via CALL, 
extended plug-in ROM scan- 
ning, ESCape in EDLINE 
(AUTO and EDIT), rapid 
execution of multiple QLib 
jobs, extra RI functions from 
machine code  RI.EXE, 
PAUSE takes channel number 
like INKEY$, BASIC RESPR 
utilising Common Heap when 
jobs are running 8-pixel wide 
fonts, STRIP size to match 
character size, ABS(n1,n2,...) 
giving SQRT(n1 42+n2 42+ 


ec) 


..»), WHEN error and WHEN 
variable now functioning, max- 
imum use made of INTEGER 
arithmetic, a$(TO 5) now 
defaulting to a$(1 TO 5), inte- 
ger and string FOR/END FOR 
loops, VER$ giving Qdos ver- 
sion and system variable base, 
and graphics equalling 92 per- 
cent of Digital Precision Light- 
ning as measured with DP 
DEMO_GRAF_BAS. 

There are also various bug 
fixes to the original ROM, A 
full review of Minerva appears 
on page 26 of this issue of OL 
World, 


Orders and enquiries to 
QView, 29 Carnaby Close, 
Godmanchester, Cambridge- 
shire PE18 8EE. Tel: 0480 
412884, Quanta and QLsub 
members should send a copy of 
the current newsletter envelope 
to claim the £5 discount, Deliv- 
ery is projected for seven days 
from receipt of order and 
QView states that cheques will 
in any case not be cashed until 
despatch, 


Lightning strikes twice 


he famous Digital 

Precision speed-up 

program Lightning 

has spawned an even 
brisker offspring, Rom Light- 
ning. As part of a special 
edition release of Lightning, 
Rom Lightning is typically 30 
percent faster than its pre- 
decessor, according to DP 
tests. 

DP states that running the 
program from a plug-in ROM 
has given it more elbow room 
and allowed them to concen- 
trate entirely on speed. The 
ROM contains the automatic 


routines for text and screen 
acceleration. The maths and 
graphics enhancements need to 
be loaded from disc or micro- 
cassette if required. 

There are a number of new 
features including, strikingly, a 
utility to allow all the channel 
characterisics of any task run- 
ning on the QL to be user- 
adjusted at the time of running. 
Normally the user should need 
only to fine-tune the font and 
ink/paper/strip colours but the 
adventurous can adjust vertical 
and horizonal character spac- 
ing, vertical and horizonal 


character size, and window 
shape, size and position. There 
is also a scroll speed control 
which can be adjusted from 
‘very fast to a smooth one-pixel- 
row at a time scroll. 

The new manual is consider- 
ably enlarged. 


Rom Lightning Special Edi- 
tion costs £49.95 from Digital 
Precision Ltd, 222 The Avenue, 
London E4 9SA. Tel: 01-527 
5493, Purchasers should spe- 
cify ROM plus disc, or ROM 
plus cartridge. Current Light- 
ning users can upgrade. 


a eg AO ete te 


Open Channel is where you have the 

1) pg hound to yoice your opinions in Sinclair 
0} World. Whether you want to ask for help 
with a technical problem, provide somebody 


flPEN TUN AWNEL | 


with the answer, or just sound off about 
something which bothers you, write to: Open 
Channel, Sinclair QL World, Greencoat 
House, Francis Street, London SW1 1DG. 


Having attempted to obtain a 
copy of Front Page (128K) for 


my QL from TK Computer- 


ware and from every other 
known software house and even 
attempted to trace the program 
originator, without success, is 
anyone on the OL scene willing 
to let me have a copy of Front 
Page? I am afraid expansion is 
out of my price range for Front 
Page Extra, Any expenses 
incurred would be met, 
R, Bristow, 
12, Ashurst Gardens, 
Cliftonville, 
Kent CT9 3HW, 


Please discourage people from 
using ambiguous letters when 
submitting programs for publi- 


cation. I refer in particular to 
i’s and I’s and O’s and 0’s, 

Which of the last two is a 
zero? Which of the previous 
two are letters or numerals? So 
often to find the answer 
requires close study of the 
program, wasting valuable 
time. 

This unnecessary use of 
ambiguous letters in a program 
is not only difficult for amateur 
typists but must be equally 
difficult for typists and type- 


setters. 
Eric Starling, 


Largs, 
Ayrshire. 


Editor's reply: Ones and 1s, 
zeros and Os are usually dis- 
tinctive in the QL World two 
typefaces, Zeros should be nar- 
rower (0) than Os and ones (1) 
have a longer serif than Is. 
Listings attached to programs 


in The Progs frequently are 
printed on the author's own 
printers, as we try to avoid re- 
typing listings wherever possi- 
ble. Occasionally a_ typeface 
does not distinguish between the 
pairs, especially ones and Is. 
Programmers should avoid 
using 0 or 1 in positions where 
another character would serve 
and be careful not to type letters 
for figures or vice versa when 
describing programs. 


Two points arising from the 
August issue. I enjoyed Mike 
Lloyd’s article about Super- 
Basic with its attendant 12 
listings but there is a bug in 
listing seven. Run this: 


100 CLS: INPUT word$ 
110 x = “0” & word$ 
120 PRINT x 


It will print zero as expected 
unless the input begins with the 
letter ‘E’, when it will crash, 1 
discovered this by accident and 
I believe it has something to do 
with exponential notation. 
My second point concerns 
Martin Wheatley’s letter about 
fitting Brother paper into the 
SER 8056 printer. I have the 
same problem but I do not 
understand his solution involy- 
ing spring clips from TV aerial 
adapters. What does he mean 
and can he elucidate? 
C.B, Storey, 
Whitley Bay, 
Tyne and Wear. 


Mike Lloyd replies: You are 
correct about the ‘bug’ and 
about its cause. You cannot 
really call it a bug, because the 
Qdos mathematics suite is desig 
to recognise an ‘e’ in numbers. 
The problem cannot be avoided 
ad ‘e’ is the most commonly- 
used letter in English words. 
Programmers will have to pre- 
cede the error trap with another 


routine to prevent the symptoms 
you report, 


Editor's comment; Some read- 
ers have noticed that the for- 
mula correction published in 
last month’s Open Channel still 
lacks one thing — the closing 
bracket between the first 12 and 
the * which follows it, LLoyd 
sent two copies of the correc- 
tion, one for OL World and one 
for enquirer Eric Sargeant. We 
kept the one with the mistake in 
it Haw ano it to 


I spoke to Captain Norman 
Vasher of Gulf Air who cut off 
the Microdrive end of the OL 
and made it work, Jones of the 
sawn-off QL wrote to me about 
cutting the end off his OL and 1 
referred him to Vasher. 

Vasher states that there are 
only two or three lines which 
need hard wiring and a transis- 
tor which needs adding. What 
you lose in the conversion is the 
Microdrives, network, TV out- 
put and so forth, but all the 
lines are available. They 
amount only to four, 

What you get if you use a 
standard computer supply of 
+5V, +12V and —12V is a much 
better display, better reliabil- 
ity, cooler running, no crashes, 
and so on, Obviously none of 
your experts had tried it and 
the non-expert who tried it had 
succeeded, 

Dennis Briggs, 
. Adman Services, 
Telford. 


Editor's reply: We thought it 
might be a belated April Fool 
joke, particularly as no address 
was included in the letter. It was 
Jones’ tumultuous approach, 
rather than his aspirations, 
which really alarmed us. There 
are at least two people on our 
experts’ committee who would 
rise to truncating the OL if an 
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urgent need arose but not, [ 
think, without a written dis- 
 claimer from the owner. OL 
World decided that it would not 
take that initiative. After all, 
even Briggs does not mention 
‘being less wide’ as @ major 
benefit. 
Tam very pleased to hear that 
Jones has found the advice he 
needs and wish him a long — or 
Shorter — and happy relation- 
ship with his new QL, 


| Worst cut 


With reference to Jones’ 
dilemma, he should. try 
incubating the segments of his 
QL in a bed of chopped 
WORMs,. With luck, they 
would regenerate as complete 
QLs, with interesting memor- 
ies. 

C.R, Oswin, 

Christchurch. 


Index 


Anyone tired of skimming 
through back issues of QOL 
World and QL User looking for 
information might be 

_ interested in an Archive-based 
index program I have putin the 
Quanta library. 

It covers all OL World issues 
to September and QL User 
from mid-1985 to its merger 
with QLW. There are 1,900 
records on one disc or two 
Microdrive cartridges. You 
will need memory expansion to 
run it. There is also a program 
to update the database month 
by month, though IT hope to 
keep the library version up-to- 

date. 
Christopher Adams, 
Moseley, 
Birmingham. 


1 VDUs 


I wonder if any readers might 
suggest a simple way of hang- 
ing a VDU ona QL? I use my 
machine for accounts work and 
need the use of a numeric 


_. keypad which is lacking on the 
~ basic OL. My solution has been 


to obtain a second-hand VDU, 
which cost next to nothing, 
complete with a reasonably 
~ robust keyboard and to plug it 
into the SER port. 
Now the problem. I need to 


_ write some code to handle the 


data coming from the VDU. 
With the terminal in its half- 
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duplex mode, all keyboard 
depressions are displayed 
faithfully on the VDU and data 
is Squirted to the QL when you 
press ENTER or similar. 

An INPUT in$ command 
will receive this data but you 
still have to filter out any cursor 
characters, such as backspaces, 
which may have been intro- 
duced. If you turn the VDU 
into its full-duplex mode you 
can use the INKEY$ command 
to receive the data character by 
character but you then have to 
send back the data to the VDU 
screen to display it. 

I feel sure that there must be 
a simple way of telling the 
second processor in the QL to 
transfer its affections to 
another keyboard. If so, users 
could obtain relatively cheap 
old VDUs_ with proper 
keyboards and we could all 
leave the standard “plastic 
plugs” one alone. 

David Spratt, 
Horncastle, 
Lincolnshire. 


May I sound a word of caution on 
pipes? For a simple system with 
one or two pipes and only one or 
two concurrently-executing prog- 
rams, there is little likelihood of 
trouble. If you have several pipes 
and co-executing programs, 
sooner or later disaster will strike. 

With any filestore device, such 
as a Microdrive, when you try to 
read and write to the same file 
simultaneously you will get an ‘in 
use’ error, That error does not 
occur with a pipe, so two co- 
executing programs can read 
from and write to the same pipe 
as near simultaneously as Qdos 
will allow. At best this will lead to 
lost or corrupted data; at worst to 
a system crash. 

Ideally, one would write a pair 
of pipe drivers for input and 
output pipes which could be 
numbered so that the drivers can 
link both ends and which would 
include a pipe lock. As we do not 
live in an ideal world I use a block 
of memory - one byte per pipe — 


to form a pipe lock. The address 


of the block is passed to all the 
programs which use the pipes. 
The lock byte for each pipe is 
allowed to hold only one of three 
values; 2,1 or 0.2 indicates that 
the input pipe is open, so the 
output pipe may now be opened; 
1 indicates that the pipe has been 
written to and a read is awaited/in 
progress; 0 indicates that the pipe 


has been read and a wnite is 
awaited/in progress. The byte 
lock value is changed only on 
completion of the relevant action 
and the action is allowed only if 
the lock byte holds the appropri- 
ate value. 

This pipe locking method is not 
very elegant but it has two major 
attributes — it is simple and it 
works. 

For Prospero Pro-Fortran 77 
users like myself the channel 
number of the input pipe can be 
passed in an adjacent block of 
memory but the Prospero peek/ 
poke must be used with caution. 
The manual is not clear but the 
value to be peeked or poked must 
be a form-byte integer. You poke 
the low byte only at the stated 
address and peek the byte at the 
address into the high byte of your 
variable. 

The lower three bytes are not 
zero. That top byte must then be 
extracted, remembering that it 
may be positive, negative or 
equal 128. A simple divide by 
16777216 may not suffice. That 
apart, Prospero F77 is far and 
away the best and most accurate 
implementation of Fortran 77 I 
have seen. 

As a final comment, now that 
we have hard discs, when will 
someone port Unix on to the 
QL and give us access to 
an even greater source of soft- 
ware? 

G. S. Worsnop, 
Sutton, 
Surrey. 


Oki help 


Can anyone help me with the Oki 
Microline 292 printer with the 
QL? T have rewritten the Quill 
printer driver and get reasonable 
results using continuous paper. 
The problems start when I use the 
cut sheet feeder; the first sheet is 
fed correctly to TOF but subse- 
quent sheets are fed incorrectly. 
If, from SuperBasic, I send to the 
printer the ASCII code 
FF)chr$(12)), it feeds correctly to 
TOF every time. If I use the 
printer front panel form feed 
button, again it feeds correctly 
every time. 

My second problem concerns 
screen dumping to the Oki, I have 
a Trump Card. The Trump 
SDUMP facility seems to crash 
the printer. The Oki requires 
ASCII ETX (chr$(3)) to go into 
graphics mode. The Trump Card 
sends)  ASCIE RSG oS 


(chr$(27);chr$(42)). Miracle Sys- 


tems can offer no help. 


anyone have a screen dump — 
program for the Oki? YA 
Finally, | am amazed that the 
QL is still going strong, with so. 
much hardware and software still 


available, and people like Miracle 


Systems spending so much time 
and effort to develop new pro- 
ducts. 

I bought my QL almost 
exactly four years ago. For three 
years it had very little use, as it 
was a basic system running on a 
black and white television set. My 
situation changed. financially, I 
brought the Trump Card and the. 
twin 3. Sin, drives and now with 
the printer the system is an 
excellent tool, not just a toy. 
Keep up the good work. 

M, J. Sir mins, 
56 Mitchelmore Road, 


Yeovil, 


Somerset BA2I 4BA.. 


Graphs 


Using a Citizen or any Epson- 
compatible printer, by mod- 


ifying the Easel screen dump _ 


GPRINT__prt file, I can now 
print four graphs on one A4 
sheet of paper. First place a 


back-up copy of Easel in 


mdvl__l, then type-in the fol- _ 
lowig commands: 


A=RESPR(600) 

LBYTES MDV1__GPRINT__ 
PRT,A 

POKE A+410,6 

POKE A+413,90 

SBYTES MDV1_SMALL__ 
PRT,A,512 


Load MDV1__BOOT, 
RENUM and enter the following 
lines: 


101 OPEN#5,SER1 
102 INPUT ‘ENTER COLUMN | 
NUMBER (0 TO 40) YOU — 


WANT TO START YOUR | 


GRAPH';C 

103 PRINT#5, CHR$(27); 
‘LP SCHRS(C) 

‘104 CLOSE#5 


DELETE MDV1_BOOT 
SAVE MDV1__BOOT 
LRUN MDV1_BOOT 


Note: using column 0 or 409 you 
will be able to print two graphs — 
side by side. When using Easel, 
press F3, (P)RINT, (DNSTALL 


MDVI_SMALL_PRT. Be- 


fore running Easel, make sure 


your printer is switched on to 


eae Lac acto from the boot. 
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At the end of 1988 Digital 
Precision released the PC emu- 
lator Solution, which has 
received favourable reviews 
from a number of sources 
including QL World. The 
primary reservation expressed 
by testers was lack of speed in 
many functions, although in 
out-performed emulators on 
other well-known computers in 
many ways. 

Now the DP team led by 
Steve Sutton, the author of 
Lightning and many other DP 
programs and an expert in 
speeding things, has produced 
breakthroughs which accelerated 
PC emulation on the OL. 

The result is a new program, 
PC Conquerer. Conqueror will 
run almost twice as fast as 
Solution on a wide range of PC 
programs. DP technical direc- 
tor and supremo Freddy 
Vaccha is amazed at the 
increase and would like all 
Solution owners to upgrade 
‘quoting the following test: 

Enter a FOR ...NEXT loop 
in Microsoft Basic and time it; 
Conqueror will clock in at 85 
percent faster than Solution. 
Disc formatting is quoted as 50 
percent faster, and boot time as 
low as 30 seconds, The jerki- 


. 
’ \ 
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ness frequently experienced 
while typing with Solution has 
been eliminated. 
Additionally, Conqueror is 
more widely compatible than 
Solution, able to handle prog- 
rams which grab the keyboard, 
and designed to be compatible 
with the Thor, Miracle and 
Rebel hard disc systems. More 
compact than Solution, Con- 
queror incorporates some half- 
dozen new options. 
Conqueror costs £89.95 with 


Accounts 


S D Microsystems, which spe- 
cialises in smal] business soft- 
ware for the QL, including the 
Small Traders’ Pack and Gene- 
ral Ledger, has now published 
the Stock Accounting System, 
an integrated office package. 

Unlike the two earlier pack- 
ages, Stock Accounting System 
requires at least 256K of expan- 
sion and combines invoice pro- 
duction with stock control and 
accounting. Invoices are pre- 
pared with a built-in product/ 
price table, with stock level 
adjustment and sales ledger 
posting performed automatic- 
ally. 


an additional £50 if MS-DOS 
V4,01/GW-Basic is required as 
well, prices only slightly above 
the original ‘vanilla’ and ‘cho- 
colate’ versions of solution. 
Solution had a substantial price 
reduction slash to £39.95. 
Users upgrading from Solution 
are promised prices “substan- 
tially less” than the quoted 
price for PC Conqueror. 

Digital Precision, 222 The 
Avenue, London E4 9SE, Tel. 
01-527 5493, 


from S.D. 


All files are loaded in one go 
with no dependence on over- 
lays from disc. Up to 999 lines 
of stock are available on-line 
instantly. The standard version 
of the program produces 
invoices, statements and credit 
notes on plain or letter-headed 
paper. An option will be 
offered which uses specially- 
produced NCR invoice station- 
ery designed by a leading PC 
software house for a fully pro- 
fessional appearance. 

Orders and enquiries to S D 
Microsystems, PO BOX 24, 
Hitchin, Herts, Tel: 8462 
675186. 


Alternative Micro Show 


The Third Alternative Micro 
Show and Electronics Fair will 
be held at the Bingley Hall 
Staffordshire Show Centre, 
Stafford on Saturday, Novem- 
ber 11 from 10am to Spm. 
The Alternative Micro Show 
is making a name as the prim- 
ary show for users of specialist 
or non-mainstream micros, 
bringing the smaller markets 
together at a major venue to 
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attract a greater number of 
general and peripheral sup- 
pliers. The show is widening its 
frame of reference still further 
this year, featuring as pre- 
viously Einstein, Dragon, 
MSX machines, Lynx, Texas 
TI, Oric, Jupiter Ace and 
Enterprise, but adding to the 
roster “all the other micros 
except the ST/Amiga/PCs. 
For the first time this year 


the show will also include an 
electronics fair for home buil- 
ders and designers. There will 
be a bring-and-buy sale in the 
fairground tradition. 

For further information con- 
tact the organiser, Taurus 
Computer Systems, Enterprise 
House, Unit 15, Riverside 
Industrial Park, Rapier Street, 
Ipswich, Suffolk IP2 8JX. Tel: 
0473 602460. 


Art 
from 
Belgium 


Joachim and Nathan Van der 
Auwera, authors and pub- 
lishers of The Painter, have 
contacted QL World to inform 
us that The Painter has been 
updated since our recent 
review — OL World, July, 1989 
~ with certain errors corrected 
and most routines, particularly 
screen-building, speeded. 

The Van der Auweras are 
now also marketing The Cli- 
PART, which consists of three 
discs and 150 screens of 
artwork, The ClipART is 
priced, perhaps somewhat dis- 
concertingly for buyers outside 
Belgium, at 2,150 Belgian 
francs, inclusive of postage and 
packing. To obtain the update 
to The Painter, send the origi- 
nal disc and 150 Belgian francs, 
The Painter is marketed in the 
U.K. by Schoen PCP but it is 
not known whether Schoen has 
The ClipART and updates 
available at present, 

The Van der Auweras can be 
contacted at PB 238, 3000 
Leuven 1, Belgium. Tel: +32 16 
48 89 52. 


Tape 
found 


Ablex, manufacturer of the QL 
microcassettes, report, that it 
has sourced replacement tape 
for microcassette production 
successfully and will “have 
stocks to see us well into next 
year”, according to production 
manager David MacSorley. 

Earlier this year Ablex told 
QL World that it would con- 
tinue to manufacture microcas- 
settes to the end of 1989. 
Observers now believe that it 
will continue to meet demand 
while it is economic and tape 
supplies last but will be 
unlikely to source further tape 
if another shortage occuts. 
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TECANICAL HI 


MEL 


PLING 


Dennis Briggs “and friends” take on another batch of 
technical queries from the Helpline sack. 


Basic book 


Having just acquired a QL with 
no frills or expansion Iam keen 
to learn about it. | wonder if 
there isa book which will save 
me time. Perhaps you can 
recommend some? Is there a 
QL group in my area? 

I believe I have the JM ver- 
sion of the ROM. Is there any 
real advantage in getting a JS 
ROM? 

Brian Hulatt, 
Sunbury-on-Thames. 


Quanta has recently published 
QL Super Basic — The Definitive 
Guide by Jan Jones, costing £8 
plus £2 post and packing. It is 
widely considered to be exactly 
what its title suggests. There is 
also at the time of writing a 
local Quanta’ group at 
Sunbury-on-Thames. Contact 
Quanta, c/o Phil Borman, 15 
Grosvenor Crescent, Grimsby, 
South Humberside DN32 0QJ 
for more information. 

To check your ROM, power 
up the QL, select Fi or F2 and 
type: 


PRINT VER$ 


and it should print the ROM 
version in the top left-hand 
corner. There are advantages 
in having the JS ROM in that 
some programs, particularly 
updates of programs which 
were around when the JM 
ROMS were issued, do not run 
properly on JM machines. It is 
probably better, in the first 
place, to enquire about this 
when buying software and see 
how you fare than to buy a new 
ROM but it also depends on 
how much you have to spend. 
A new ROM costs around £30, 
as does an updated set of the 
Psion quartet. TK Computer- 
ware — 0303 81 2801 — can help 
on both counts, 


Dead tube 


I have the Sinclair Vision QL 
colour monitor with a 12in. 
screen. It is made by Kaga 
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Electronics Co Ltd of Japan 
and was sold by Dixons in large 
numbers. 

The tube on it appears to have 
expired. How can I obtain a 
new cathode ray tube and get it 
fitted? 

William Hutton, 
Barmouth, 
Gwynedd. 


Adman Services has circuit 
diagrams for the monitor and 
can repair it. The telephone 
number is 0952 255895. 


C compiler 


! would be grateful if you could 

recommend me a C compiler. I 

have seen various ones advert- 

ised in the magazine but wish to 

know which has the fullest 

implementation, _ particularly 
regard to structures. 

Ian Jackson, 

Pocklington, 

E, Yorkshire. 


The Metacomoco *C’ compiler 
has been updated recently 
by Chas Dillon with the co- 
operation of Metacomco. It Is 
available from PDQL in Birm- 
ingham, which is the distribu- 
tor for Dillon’s software and 
responsible for all after-sales 
support. This version of the ‘C’ 
compiler has none of the short- 
comings of the previous com- 
pilers and should meet your 
needs admirably. 

Look at the full range of C- 
related programs available 
from PDQL as there is a special 
potentially wide-ranging one 
which takes SuperBasic source 
files and turns them into ‘C” 
source files ready for compila- 
tion. 


Syne hitch 


I have a Texas 820 Keyboard 
Send Receive terminal printer 
connected to the OL SER port 
which provides high-speed 
program listings. It would be 


useful to use the keyboard 
together with or instead of the 
QL keyboard to control the QL 
and for input to word processor 
programs such as Quill. 

I have read the QL Advanced 
User Guide and the Sinclair 
QDos Companion, which have 
provided some indication on 
the use of channels (TRAP #2) 
and serial I/O operations 
(TRAP #3). Apart from the 
TRAP #1, MT_IPCOM func- 
tion, there seems to be little 
information on how or where 
the QL keyboard input charac- 
ters are received, stored and 
used to control the various 
Qdos and SuperBasic func- 
tions, which might allow an 
independent machine code 
programs to link in characters 
received from the Texas 820 
keyboard via SER] as an alter- 
native controlling device and 
still provide a program listing 
facility as well. 

Can this facility be provided 
by a relatively small assembler 
program? If the answer is yes, 
how can it be achieved? Would 
this facility be useful to other 
users who may have access to a 


serial keyboard terminal 
device? 

Len Watts, 

Rainham, 

Gillingham. 


There has always been a 


demand for alternative 
keyboards for the QL, mainly 
for personal preference. 


Schoen has two types, both of 


which are available. One is a 
simple add-on using the 
existing keyboard connections 
but needing a different co- 
processor chip to prevent 
double-strike of the keys. 
Unfortunately it can introduce 
a side effect on some OLs 
which prevents the serial ports 
functioning correctly. The 
same company also supplies a 
PC-style keyboard using a dif- 
ferent approach. 

A special type of PC 
keyboard can be hooked to a 
QL by using the ABC Electro- 
nics interface. Both PC-type 


keyboards cost about £100 with 
the necessary interface. 

If you are willing to forego 
the use of the serial 2 port, any 
serial keyboard with an RS232 
output can be used. The prog- 
rarn should make matters 
clear. Notice that it does not 
matter what is sending the data 
to the serial port. It could be a 
keyboard, modem, Microwri- 
ter or another computer. It just 
changes what goes in to what 
makes sense to the QL. 

The TRAnslate function of 
the JS and MG ROMs are a 
similar type of look-up table. 


RS to keyboard translator, This 
is a routine to take charac- 
ters entering through SER2 
and place them in the keyboard 
queue. It therefore makes it 
possible to connect any prog- 
ram needing a keyboard input 
direct to the outside world. 
Uses include an external 
keyboard such as a terminal or 
Microwriter, optical scanner, 
modem direct into Editor, and 
even a PC mouse. 


We have had a Sinclair QL in 
the family since early 1985 and 
it is still working impeccably 
every day, In recent years we 
have used it together with the 
Phillips monochrome Monitor 
80. We have just had the oppor- 
tunity to buy a Nixdorf BA23 
colour monitor at a bargain 
price. 

We have the necessary pin- 
out information for the QL and 
the monitor. There is a hitch, 
though; the monitor requires a 
horizontal and a vertical syne 
signal while the QL seems to 
offer only a composite syne. 

Ts there a way to break down 
the composite QL signal into its 
horizontal and vertical compo- 
nents? Or is there any other way 
round the problem? I would 
appreciate your shedding some 
light on the situation. 

Gunnar Oehrn, 
Farjstaden, 
Sweden. 
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The OL monitor connection 
supplies vertical and composite 
sync as well as RGB, compo- 
site video and composite 
mono. On many monitors the 
composite sync will be adequ- 
ate for horizontal syne purpo- 
ses. If the signal needs separat- 
ing the enclosed circuit will do 
the trick, It is just a simple sync 
separator. It is probable that 
the line sync pulse which is a 
positive one from the QL will 
need inverting to get your 
monitor to function. A single 
transistor can be made to invert 
the signal or just use one logic 
gate to do the trick. 


T have a Spem QL casing and 
have fitted Miracle Expan- 
deram in the lower slot of the 
bus extension board. I have also 
fitted a CST disc drive interface 
in the top slot, a combination 
which works well. My problem 
is that I have a Qontrol interface 
board I need to use in conjunc- 
tion with the disc interface as 1 
wish to run my video digitiser 
board from the Qontrol board. 
The video board is a kit from 
Maplin Electronics which needs 
two TTL ports to control it, the 
problem being that the Qontrol 
board needs to be in the top slot 
of the Spem extension, which 
means that the disc interface 
cannot be fitted. If it is fitted on 
the through connector on the 
Spem extension all I get when 
the system is switched on is a 
white screen with no messages. 
Could you tell me how I can fit 
all three boards into the system 
so that they all work together? 
M.R. Howman, 

Bourne, 

Lincolnshire. 


I can only presume that you are 
trying to use the Colin Opie 
contro! board along with the 
Expanderam and the CST disc 
interface. As I have no details 
of the control board I can only 
assume that there is a conflict 
where all the boards are in the 
address space. 

In effect, one appears to be 
stamping all over another, 
hence the white screen. If you 
could supply more details I can 
look at the problem in greater 
depth. 

Eventually I found with 
great difficulty the answer to 
your problem. Fit the Colin 
Opie board to the OL and the 
Expanderam into this board, 
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not the other way round. The 
reason is that the Expanderam 
carries only the few lines 
needed for the disc interface. 
Many lines are not carried 
through. 

On many European televi- 
sions there is a SCART socket 
with RGB and sync inputs. The 
pin-outs are enclosed with the 
RGB pins highlighted. Just 
solder the QL monitor lead as 
shown and it will work. 


1 have ail three modules of the 
Tandata Q-Connect modem 
which I find works extremely 
well on Microdrive cartridge, 
except that it takes a very long 
time to load. Can you tell me 
how to adapt it for a Cumana 
disc drive? I have tried adding 
FLP_USE MDV into the boot 
program but it refuses to accept 
this command at line 150, for no 
apparent reason. 
Terry Gould, 
Bugbrooke, 
Northampton. 


The simple answer to using the 
Tandata modem software is 
either to compile it with Q- 
Liberator or at least use Q- 
Liberator Q-LOAD after it has 
been Q-SAVED. This piece of 
software takes a snapshot of 
the program in RAM, saves it 
to Microdrive or disc when Q- 
Loaded, loads it back in exactly 
the same position ready to run. 
It reduces loading by a substan- 
tial amount but, of course, it 
cannot change the speed at 
which data is transferred from 
tape. 

Disc drives are very much 
faster in transferring data 
across, therefore investment in 
them is worthwhile. If this is 
not a suitable path for you I 
suggest you buy the QualSoft 
terminal software from TF Ser- 
vices, 12 Bouverie Place, Lon- 
don W3. 


I have been unable to use my 
QL for more than a year. 
Suddenly it refused to print a 
document from Quill. When I 
try to print I get “Unable to 
open file. Error — press space to 
continue.” I tried copying a 
fresh tape from my Master Quill 
2.35, using the attached listing 
io install my Brother M1009 
printer. Nothing worked. Prior 
to this fault I had used my QL 
for two years without difficulty. 


I put in my QL for repair but 
on having it returned I still 
could not print a file. Therefore 
! put in the QL for repair again. 
I was told the QL was in perfect 
working order. Fortunately, or 
unfortunately, it was lost in the 
post. I was very lucky to have it 
replaced by a new QL. On 
returning home, I found that the 
new QL did not work but had 
the same fault. 

Therefore I put in my printer 
for repair. My printer was 
returned with a test printout 
showing that it was in perfect 
working order. Therefore I was 
left with my QL and printer 
having been tested and found to 
be in working order but I still 
cannot print a file. So after 
considerable cost and a year 
without my QL I am no further 
forward. Every function works 
except the print command. 

Dr. N.P. Halliday 
Guildford, 
Surrey. 


As you have had your QL 
replaced and had the printer 
tested, the only other compo- 
nent in the chain is the printer 
lead. I have just encountered 
another QL owner with the 
same set-up as yours and the 
same fault. It proved to be the 
printer lead. 

Adman Services, 53 Gilpin 
Road, Telford, Shropshire can 
supply you with a test cable for 
the QL which connects serial 
port | toserial port 2. You send 
data in the form of characters 
out through serial 1 and receive 
them through serial, then 
reverse the process. This 
proves that the serial ports are 
functioning correctly. The fol- 
lowing basic does the complete 
test: 


100 OPEN 3,serl: REMark 
Change to ser2 for reverse test 
110 OPEN_IN 4,ser2: 
REMark Change to serl for 
reverse test 

120 REPeat loop1 

130 for a=0 to 255 

140 print ‘3.chr$(a); 

150 PRINT inkey$(‘4,(-1)); 
160 end for a 

170 END REPeat loop! 


The same supplier can also 
supply a new printer lead for 
£8.50 and has a small monitor 
which plugs between the QL 
and the printer lead to show the 
signals present on the serial 
cable by a system of coloured 
lights. 

There are two important points 


to remember when using this 
combination. One is that you 
will have to install the printer 
on Quill and Abacus by typing 
LRUN MDV1_INSTALL— 
BAS and then follow the screes 
to enter the data listed below. 
The second point concerns 
Easel and Archive as those 
packages cannot be recon- 
figured. It is for that reason 
that the baud rate should be set 
to 9,600 which has so far prove 
correct for other packages. 


Parity Even 
Baud rate 9600 
Preamble 27 ,64,27,82,2 
Emphasised on 27,69 
Emphasised off 27,70 
Underline on 27,45,1 
Underline off 27,45,0 
Subscript on 27,83,1 
Subscript off 27,84 
Superscript on 27,83,0 
Superscript off 27,84 
Translate 96,35 


Printer (used with Quill or 
Abacus): 


Switch 1 

Pin 8 Off 
Pin 7 On 
Pin 6 Off 
Pin 5 On 
Pin 4 On 
Pin 3 On 
Pin 2 Off 
Pin 1 Off 
Switch 2 

Pin 8 On 
Pin 7 Off 
Pin 6 Off 
Pin 5 Off 
Pin 4 Off 
Pin 3 Off 
Pin 2 On 
Pin 1 On 
Printer (used with Easel or 
Archive): 
Switch 1 

Pin & Off 
Pin 7 Off 
Pin 6 On 
Pin 5 On 
Pin4 ‘On 
Pin 3 On 
Pin 2 On 
Pin 1 On 
Switch 2 

Pin 8 On 
Pin 7 Off 
Pin 6 Off 
Pin 5 Off 
Pin 4 On 
Pin 3 Off 
Pin 2 Off 
Pin 1 On 
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CANOFTWARE FILE 
#QZ/QL to 288 file transfer 


ast year the Cam- 
bridge Computer Z- 
88 was the most 
popular portable 
computer on the market and it 
is set to stay in the top three, 
despite much-improved oppo- 
sition this year. It is about the 
size of an A4 sketchpad and 
less than one kilogram in 
weight. Recent price reduc- 
tions have been made in 
response to competitors’ price 
reductions and the Z-88 is 
finding new customers, many 
from the OL community. 

The most obvious connec- 
tion between the OL and the Z- 
88 is Sir Clive Sinclair, who 
sponsored them both. His flair 
for miniaturisation without 
compromising functionality or 
raising costs features in both 
machines, however, the les- 
sons learned from the prema- 
ture launch of the OL have 
shaped the development of the 
2-88. The hardware has been 
reliable from the start and 
there are no obvious holes in 
the complex software. A sur- 
prisingly large number of QL 
owners have purchased the Z- 
88, perhaps succumbing to the 
power of the Sinclair name, 
perhaps recognising a valuable 
extension of their computer 
systems. 


Members 


The Z-88 is complete with an 
impressive array of software 
including a very powerful com- 
bined word processor, spread- 
sheet and database, PipeD- 
ream. Additional _ utilities 
include a diary manager, alarm 
clock, a structured Basic and 
communications facilities 
which allow the Z-88 to trans- 
fer data to and from other 
computers. Its only weakness is 
that, without an additional 
Eprom card, all programs are 
saved to a partition in the Z-88 
RAM. Without a steady trickle 
of power from the computer’s 
four AA-sized batteries the 
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RAM contents would swiftly 
fade away. 


Terminal 


Communications are very 
important to the Z-88, because 
it is not designed to be used asa 
first computer. Instead, it 
works best in conjunction with 
a host computer — a desk-top 
printer. The Z-88 can be 
regarded almost as a cable-less 
terminal, capable of being used 
many miles from the nearest 
power socket, with data trans- 
ferable to the host computer on 
its return to base. 

A communications program 
must perform two distinct func- 
tions to meet the normal 
requirements. First, it must be 
able to copy files from the Z-88 
to the host computer and back 
again and, second, data files 
produced by the Z-88 software 
must be transferred where 
necessary into the format 
required by the programs run- 
ning on the host computer. 

There are three reasons for 
transferring data from the Z-88 
to a host computer such as the 
QL; the first is to protect 
valuable data by making a 
backup on a disc or Microdrive 
attached to the QL. The vul- 
nerable Z-88 RAM discs make 
regular backing-up to a more 
secure medium essential. 

Z-88 owners may also prefer 
to work on a desk-top compu- 
ter with a conventional 
keyboard and monitor display 
when one is available and use 
the Z-88 only when necessary. 
The rubber keys and small 
screen display are not the most 
user-friendly devices in the 
computer market. To swap 
data from Z-88 programs to 
their equivalents on the host 
computer, control codes may 
need to be translated and occa- 
sionally the data format needs 
to be modified. 

Documents completed on 
the Z-88 might find their way to 
another computer to be incor- 
porated in programs not avail- 


able on the lap-top, or printed 
via a printer connected to the 
host. During the summer a 
great deal of my writing was 
accomplished on the Z-88 in 
the garden prior to being trans- 
ferred to Quill for final 
finishing-off and printing. 

David Batty’s excellent little 
file transfer utility QZ docs its 
job without fuss or bother in a 
reliable manner. The original 
version of QZ was rushed out 
soon after the release of the Z- 
88 and the haste of its prepara- 
tion showed in the poor screen 
display and general lack of 
facilities. Significantly, 
though, even this version of the 
software performed faultlessly. 

The original user manual 
promised a free upgrade to the 
second version of QZ and 
recently I received my copy. 
Version two is a great improve- 
ment and has been a pleasure 
to use. 


Settings 


The main menu gives single- 
key access to all the program 
functions. When first using the 
program the most important 
option is the panel which dis- 
plays the settings in force when 
the utility is booted. Settings 
can be altered and then saved 
so that they need not be 
changed again when the prog- 
ram is re-loaded. 

The defaults include the 
baud rates for incoming data, 
outgoing data and communica- 
tion with the printer, the 
default storage device on the 
QL, the serial port through 
which contact to the Z-88 is 
made and whether or not data 
transfer is echoed to the 
screen. This latter feature is 
useful for checking the con- 
tents of a particular file but it is 
as interesting as watching paint 
drying; the process of data 
transfer is accelerated signifi- 
cantly by opting not to echo to 
the screen. 

Two unexpected but valu- 


able defaults allow users to 
declare a common filename 
prefix and suffix which will be 
shared by all files received by 
the QL. You may wish to add 
the suffix “__z88” to all Z-88 
files, for example, or prefix 
back-up copies of files with the 
directory name “bkp_”. 


Connection 


The program is bundled with 
3ft. of RS232 cable with a 
telephone-style socket at one 
end and an Atari 9-pin D 
socket at the other. The body 
of the D socket has been 
trimmed slightly to permit a 
slightly precarious connection 
with the Z-88 connector on the 
right side of the body. The 
new-style telephone plug fits 
into the ser2 port at the rear of 
the OL. This arrangement 
leaves serl free for the printer 
cable. 

Let us take as a typical 
transfer operation the backing- 
up of every file in the Z-88 to a 
disc via the QL. The linking 
cable can be connected with 
the machines powered up or 
turned off. The Z for QO prog- 
ram runs as a task which can fit 
easily into a non-expandable 
QL. The Z-88 has its own built- 
in file transfer utility which is 
booted by pressing CTRL~X. 

One thing which can be 
confusing initially is the need to 
control two computers simulta- 
neously, Frequently I find 
myself typing at the Z-88 
keyboard and looking at the 
QL screen for results. It is best 
to set the receiving computer 
into the correct mode before 
trying to send data from the 
other machine; in this example 
the “B” (for “Batch receive”) 
option is chosen for the QZ 
menu, 

Turning to the Z-88, its file 
transfer utility is booted by 
pressing CTRL-X. The send 
mode is chosen by pressing the 
S key, at which point the Z-88 
prompts the user for a file- 
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name. The Z-88 operating sys- 
tem has a pattern-matching 
wildcard system similar to that 
found on MS-DOS and Unix 
computers. Entering an aster- 
isk tells the computer that 
every file stored in the current 
ram partition is to be transfer- 
red through the RS232 link. 


Experiment 


From there the two compu- 
ters take over. If you have a Z- 
88 with an expanded memory 
full of files the process may 
take a long time. Brave users 
can experiment with changing 
the baud rate from 9,600 to 
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19,200 but others may feel that 
the consequent risk to data 
integrity is not worthwhile. 

Sector Software has cleverly 
implemented a wildcard file 
designation system in its prog- 
ram so that sending batches of 
files to the Z-88 from the QL is 
just as straightforward. 

Some files might be transfer- 


red to be used by QL software 
in which case QZ can be 
instructed automatically to 
translate all occurrences of the 
Z-88 CHR$(13) linefeed into 
the QL CHR$ (10) code. 


Reluctance 


Less cleverly, Batty has 
promised his customers an 
automatic translation between 
Archive and PipeDream for- 


mats but has yet to deliver it. 


He blames Psion reluctance to 
reveal the Archive data storage 
method — surely this is no great 
commercial secret. When he 
has this last facility completed, 


existing customers can request 
a free ugrade. 

QZ is an essential piece of 
software for those who own 
both a QL and a Z-88, It is a 
well-constructed, sturdy piece 
of code which I would judge 
slightly over-priced were it not 
for the promised Archive 
translation facility and the 
knowledge that Batty is always 
available to give generous sup- 
port to users who telephone 
Sector Software. Very few 
companies will upgrade a prog- 
ram to correct weaknesses 
without charge and Sector 
Software is to be commended 
for its policy. 


IQL World Index 


he first regular, inde- 

pendent issue of OL 

User, the predecessor 

to Sinclair QL 
World, was released in August, 
1984. There were 16 issues 
before it was combined with 
Sinclair QL World and there 
have been more than 40 issues 
of magazine since then. This 
means that there are more than 
1,000 articles relating to the 
QL, its programs, its hardware 
and its languages gracing the 
shelves of most ardent QL 
followers. Many of the features 
are just as relevant today as 
when they were hot off the 
press but, lost among 
thousands of pages, they might 
as well have not been written. 
The QL magazine collector 
needs an index. 


Articles 


Some time ago Sector Soft- 
ware approached by Ron Mas- 
sey to see if there was any 
commercial interest in a data- 
base of QL-related articles 
which he had developed pri- 
marily for his own use. Sector 
saw the value of the data but 
insisted on writing its own high- 
speed database program com- 
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piled with Digital Precision 
Turbo to replace Massey’s 
SuperBasic routines. The 
result is QL World Index, a 
rapid way to find any article 
printed in QL World or QL 
User. 

The program just fits on an 
unexpanded QL, thanks to a 
variety of data compression 
techniques. In its _ fully- 
expanded form the database 
would exceed 160K. The user 
interface with the program is so 
simple that a manual is consi- 
dered uncessary: type-in the 
word or words to be searched 
for and the program displays 
almost instantly details relating 
to that topic, provided that it 
was printed prior to May 1988. 

As you would expect from 
Sector Software, the excutable 
program is fully error-trapped 
and compatible with all main- 
stream programs. The output 
shows the name of the maga- 
zine, the month of issue, the 
title of the article, a brief note 
on its content and the name of 
the author in a neat tabulation. 

Any part of the output can 
be used as a search key. For 
example, entering “Aug 1986” 
will retrieve every article 
printed in that month’s issues; 


“Ken MacMahon’ will retrieve 
all articles penned by the for- 
mer editor and “Psion” will 
display every article relating to 
the Psion products. It you are 
considering buying a new prin- 
ter for your QL, entering 
“printer” as a search string will 
prevent you spending a consid- 
erable time flicking through 
back copies of the magazine 
and may even save you from 
buying the wrong printer. 
The number of occurrences 
of a particular theme. can be 
obtained by typing in the word 


“count” followed by the search 
string. This reveals that there 
are 25 entries for the April, 
1989 issues of QL World and 
that the database holds details 
of 23 articles written by me. 
The value of this utility 
depends on how much refer- 
ence use you make of QOL 


World and QL User. I was 
surprised by the variety of 
features the magazine has car- 
ried since its launch and by the 
number of times a vague search 
string produced the title of the 
exact article for which pre- 
viously I had searched in vain. 


Lesson 


It is not entirely the fault of 
the program that I was forcibly 
reminded that swapping discs 
when data files are open is a 
dangerous thing to do. Archive 
users apparently learn this les- 
son aj] the time. A warning 
message in the program display 
would have saved me much 
anguish. Better still, the prog- 
ram should load all the data 
into RAM, provided the space 
exists. 

The rapid display of infor- 
mation is a tribute both to 
Sector Software and to the 
power of Turbo. At £6 the 
program represents very good 
value, although it is perhaps 
time for an update to the 
database to include the most 
recent issues of your favourite 
magazine. Do not write to us — 
write to Sector Software 
instead. 
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y QL was bought from Dixons 
in April, 1986 complete with a 
Serial 8056 thermal printer. 
When | opened the boxes and 
plugged it all in the computer worked but 
not the printer. As seems to have been the 
case with many people who acquired a 
QL with a printer from either Dixons or 
Boots at that time and had little or no 


operation of Quill. | used QL Switch to 
multi-task on my QL, however, and it was 
discovered that using version 2.35 of the 
Psion four did not work when QL Switch 
was configured for 2.35. This was solved, 
after consulting Athene, by setting up the 
switch routine as if Quill 2.35 was version 
2.3. If it was set up as 2.35, Quill snatched 
all the memory and other tasks would not 


One Man’s System 


James McGreehin, 
a minister by 
trade, 

finds that the Lord 
needs the QL, too. 


experience of computers before then; the 
inclusion of printer details near the end of 
the QL manual did not prove helpful. Even 
when | found the details | did not under- 
stand them. 

After reading several letters in QL 
World and the answers | managed to get 
the Serial 8056 up and running. That, 
along with books from the local library 
written by people with ‘hands-on’ experi- 
ence of the QL, proved invaluable in 
ensuring that | persevered with the QL 
and got it working as | wanted it to do. | 
then read that thermal paper fades and 
that it was not the best format for my 
printing purposes — sermons. 

In 1987 Boots was selling, at greatly 
reduced prices, several makes of daisy- 
wheel printer. | bought one and it failed in 
a few days. Another was obtained but it, 
too, kept going off-line for no apparent 
reason, even when not connected to the 
QL via the parallel port on the Sandy 
Superdisc I/F. When the third one kept 
dying | gave up and got my money back. 

Then | tracked in another Boots branch 
the printer | have at present. | have had 
almost no bother with the Epson DX-100 
daisywheel printer, which cost less than 
£100. It has a built-in copy facility which 
allows short documents to be stored and 
printed in multiple, thus freeing the QL for 
other tasks. 

The only problem | found was with 
ribbons. One make kept jamming and 
some even snapped. The printer was said 
to be at fault. So it went to be repaired. It 
was returned with a fault it did not have 
when it went away. | repaired it myself in 
the end. The fault had not been with the 
printer but with the ribbons. Eventually | 
found a source of Brother original multi- 
strike ribbons from Office Equipment 
Selection, Killingworth and have had no 
trouble since using them. 

Obviously my greatest use of the QL is 
for word processing and after a time | 
bought Athene Consultants TurboQuill+. 
It worked well and really speeded the 
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activate through lack of memory. Version 
2.35 of the other Psion programs works 
satisfactorily with QL Switch. 

Some people have written about key 
bounce/repeat when typing with the QL. 
Suggestions have been made about 
entering code to cope with the problem. 
Having /CE, | alter the Repeat Rate setting 
in the Custom mode which prevents 
bounce/repeat, though it slows the 
response of the cursor a little. Still, you 
cannot have everything. 

When using different daisywheels cer- 
tain letters and symbols are not given the 
same code on each wheel and the large 
printwheel | have has no “!”. So in the 
translates for Quill | set up codes to print 
“ then backspace, and then print “*” 
which works satisfactorily to produce “!”. 

The DX-100 has a red printing facility 
utilising what would be the correction 
ribbon spool on a typewriter. | have set up 
the printer_dat so that Highscript prints 
RED. This means, though, that | have to 
use different printer drivers for the diffe- 
rent daisywheels. Such a problem has 
been dealt with recently in the magazine 
but since | had to solve it earlier and did 
not possess Editor | set up a procedure 
whereby the QL requests selection of 
printer driver before loading Quill and 
copies and relevant named driver to 
RAM1 as printer_dat. 

Changes to the driver, once Quill is 
running, are made using the Key Define 
facility in the Glossary with TurboQuill+. 
Having both TurboQuill+ and QL Switch 
the possibilities for hotkey operation are 
vast, with TurboQuill+ allowing hotkeys 
to be set up within Quill. Thus, «CTRL A> 
changes to the ASCII daisywheel codes: 


<backup ram2_ascii_dat to ram1— 
printer_dat, overwrite Y> 


<CTRL G> changes to the large type 
daisy wheel codes: 


<backup ram2__grandeii__dat to ram1__ 
printer_dat, overwrite ? Y> 

Spelling checking is done with Qspell, 
which although it will not multi-task works 
well and if | save my checking to the end of 
a work session there is no real problem in 
re-setting the QL to run Qspell and then 
running Quill for correction. 

Having upgraded RAM by 256K, later to 
be upgraded further to 512K, by way of 
the Sandy thru’ RAM card | began using 
RAM discs from the Sandy program on 
Microdrive. This made working with the 
Archive procedures | used for handling 
visiting lists, an index for the church song 
book and so on much easier. These 
procedures were developed from a sys- 
tem worked out by a fellow Baptist 
minister. They have worked well for 
almost three years, with a few modifica- 
tions being made when | have found 
better ways of doing the same job. 

One recent suggestion | found helpful 
was by Dennis Briggs about exporting 
and importing ordered —dbf files to 
shorten them. It amazed me how big my 
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Easel printout with modified 
Grprint_ptr 


church__dbf file had grown, since each 
time | use it to create the list of who has 
been visited it selects and orders the file. 

Most of the programming | have done in 
SuperBasic has béen to load and set up 
the Psion four. Again, as | have seen 
procedures in QL World | have incorpo- 
rated them into my programs. Short 
procedures such as List, Blank, Fipsave 
have proved invaluable in working with 
programs | have written. 

The monitor | use was bought later in 
1987 because | found that working from a 
TV set was becoming impossible. | 
bought a Philips Orange Computer Moni- 
tor 80 from Laskeys in Newcastle and it 
has given no trouble. The facility incorpor- 
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ated in QL Switch to dim the screen after a 
few minutes or so no doubt will preserve 
the screen coating. 

When the article appeared in QL World 
regarding budget disc drives | ordered a 
drive from D.S. Enterprises. | ordered a 
power supply from Viglen. With a box and 
connectors and ribbon cable and the 
Sandy I/F | had a 5.25in. drive up and 
running. It has worked well, though | 
discovered that cheap discs are not 
always the bargain they first appear to be, 
with a few failing by slipping in the drive. | 
find that Tandy and 3M discs work much 
better. 

Recently | bought a 720K, 5.25in. drive 
from Matmos. The drive works really well 
and has enabled me to proceed with the 
latest project, a church magazine. For it | 
bought the Digital Precision Desk-Top 
Publisher [Special Edition] and the Edi- 
tor. | found that setting-up the GraFIx 
driver for the Serial 8056 to print from DTP 
would prove a problem to me, so | 
telephoned PDQL, which offered to sup- 
ply the driver for a small charge. 

The program, again in QL World, to 
alter the Gprint_prt supplied with Easel 
so that it would work with the 8056 
allowed me to print from Easel, after | 
sorted out the error in the listing with the 
help of a friend who does a good deal of 
computing. It was while working on data 
for achurch assessment that | found that | 
could save Easel graphs but when | 
reloaded them there was no data — only 
the axes, key and text. | puzzled over this 
for a few days until | discovered that the 
problem was that | had named the X-axis 
as '79 '80 '81 and so on. When | removed 
the <’> the graph saved, complete with 
data. | do not know why this fault occurs 
but it is there, in both versions 2.3 and 
2.35 of Easel. 

Setting the graph colours to red makes 
printing with the 8056 better as it creates a 
uniform dot pattern. Other colours cause 
patterns which can make the graphs look 
odd. The finished results were then 
photocopied on to overhead projector 
slides and were ready for use. Having 
spent much time at university drawing 


graphs | really appreciate Easel, even 


though | do not use it often. 

Another very helpful program | have is 
Mailmerge deLuxe by PDQL. When | 
bought it | found some odd results, such 
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ore | sip HS Pa ra ree sw “ts 
eat Te eel US ee ae et Oo 


1240 DEFine PROCedure CHOOSE_FUNC 


1250 k=CODE(INKEY$(-1)):SELect ON k 


1260 =232:inp 


imi lactic Ricci ect ys Se A eae te Be ac a Rt tara Lee ge gt 


1270 =236:set_up:start:FILL_COPY:pout (1):save_scr:REMark hard 


1280 =240:EDIM 


1290 =244:pout O:savel_scr:REMark hard 


1300 =248:S L 

1310 =27:STOP 

1320 =REMAINDER :GO TO 1290 
1330 END SELect :END DEFine 


1980 pout (1):save_scr:REMark Hard 


Add line 2115, modify 2120 to 2190 as follows:- 


2115 DEFine PROCedure save_scr 
2120 REMark DEFine PROCedure hard 


2130 PRINTE0O;\" SAVE SCREEN FOR PRINTING WITH GraFIX ? <Y/N>" 


2140 REPeat YNLOOP 
2150 I$=sINKEY$(-1) 


2160 IF I$=="Y" OR I$=="N":EXIT YNLOOP 


2170 END REPeat YNLOOP 
2180 IF I$=="N":CLS£0:RETurn 
2190 CLS£E0:dump_scr:END DEFine 


Add these lines:- 


2191 DEFine PROCedure savel_scr 


2192 PRINTEO;\" SAVE ANSWERS SCREEN FOR PRINTING WITH GraFIX ? <¥/N>" 


2193 REPeat YNLOOP 
2194 I$=INKEY$(-1) 


2195 IF I$s="Y" OR I$=="N":EXIT YNLOOP 


2196 END REPeat YNLOOP 
2197 IF I$=="N":CLS£0:RETurn 
2198 CLS£0:dump1_scr:END DEFine 


REMark DEFine PROCedure dump 


REMark CLS£0:CALL where:END DEFine 


REMark 


te be: pr ut etdiat etn: 


DEFine PROCedure dumper 
cisf@o 


DELETE flp2_Sear ch over: DELETE + am? Se sr 


SBYTES (3p? Searches, 131072, 52768 
SRYTES 1 am2@_Senreh_is1, 131072, 32768 


END PEP itce: dump sis 


DEFine PROCedu:e dumpt oor 
CLSLO 


DELETE fi p2_Answers_ocr: DELETE + am2_Ariwerr stots 
SRYTES flp2_Answers_cr, 131072, 32768 
SRYTES 1 om2?_Annwer:,_scer, 133972, 32768 


END DEFine dump) oser 


Modifications to Wordsearch listing 
from QL World, November 1988. 


as it printed part of the letter then stopped. 
Consultation with PDQL by telephone 
quickly solved the problem. | had set the 
DIP switches on the DX-100 to give 
automatic line feed, so line feed was 
omitted from the Quill printer__dat. 

This meant that mailmerge was pre- 
sented with one long line of letters and 
spaces. When it reached the limit, which | 
presume to be about 256, it stopped. 
Producing the lis files from Quill with no 
printer_dat in RAM1 solved the problem 
and Mailmerge certainly works well. Its 
facility for single-sheet work, whereby it 
stops at the end of each page, is 
invaluable to me since | work with cut 
paper. If | could pick up a cut sheet feeder 


for the DX-100 cheaply my 
final problem would be 
solved. 

A few years ago | bought 
Inkwell deLuxe. |t proved 
Hope a great help in produc- 
ing large print hymn and 
song sheets for those in 
the church who have sight 
problems, enabling them 
to take a greater part in 
worship. Obviously copy- 
wright permission has 
to be sought before repro- 
ducing such material. The 
church has a_ licence 
from the Church Music 
Association. 

With regard to licences, being a 
Baptist minister | found that | had to 
buy my own licence from the Data Pro- 
tection Registrar, the Baptist Union 
being unable to register for all Baptist 
churches. | made the mistake of taking it 
out in the church’s name. This meant that 
when | moved during the period of the 
licence | could not take it with me and had 
to register again. | have done so in my 
own name now. 

All in all, | find the QL an excellent 
help in my work. In 1986 | knew next 
to nothing about computers. | certainly 
did not know how to operate a computer 
system when | bought the QL but now | 
would not be without it. 
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Dennis Briggs produces the results of his latest researches 
into crashproofing the QL — for experienced solderers only. 


he Sinclair QL com- 

puter has been 

around for some four 

years during which 
time it was subjected to at least 
three major changes before 
production ceased. After the 
backlog. of unsold machines 
was disposed of, many owners 
decided that there was some 
merit in the old black box 
despite the profusion of PC 
clones, along with the inces- 
sant publicity from that direc- 
tion. 

Two fairly common prob- 
lems have arisen with the QL 
which, despite many owners 
never encountering them, 
have plagued some either into 
parting with large amounts of 
cash or even the machine to 
avoid the frustration. The main 
problem is the use of Micro- 
drives which can be solved by 
changing to discs without 
breaking the bank. The second 
problem in one of reliability. Let 
me add that the QL is just as 
reliable as many computers 
costing three-figure sums but 
for serious use it would be 
pleasant if it could be made 
‘bomb proof’. 

In the past, many theories 
have been advanced about 
how to do this with add-on 
gadgets costing from £20 to 
£70. While the theorists were 
theorising, a few workers have 
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investigated the cause and 
found the answer. 

A small recap in chronologi- 
cal order will provide some of 
the background. There was 
very little in the way of quality 
control in the early days of 
production but | think that with 
the passage of time the rogue 
machines either went back for 
modification or have been 
scrapped. The early Psion 
software, coupled with a dodgy 
duplication method, also 
played a major role in frustrat- 
ing users and again, like the 
production, quality control was 
corrected fairly quickly. 

One authority stated on 
several occasions that while 
the main board was designed 
to run on 5V, the ULA chips 
were designed to run on 6V. | 
have no reason to doubt that 
but the implementation of cor- 
rective action is out of the 
question. 


Explained 


The power supply designer 
was consulted and explained 
why the standard unit was not 
up to the job; he also explained 
that a suitable one of the many 
hundreds he has designed 
would be much better. This 
one has been altered slightly, 
with large sales proving that it 


is effective in many situations. 
A similar situation arises in 
regard to spike suppressors or 
power conditioners, which 
again help to a certain extent, 
as does the replacement of the 
5V regulator with a larger rated 
one inside the machine. 
When expansion boards 
became affordable the prob- 
lems increased because of 
several factors, mainly in rela- 
tion to a programmed chip on 
the expansion having some 
conflict with the 8301 ULA. 
Fitting one of the other four 
different 8301 chips usually 
cured it to a large extent. 


Remedies 


Two very knowledgable QL 
enthusiasts to whom | am 
indebted have looked at the 
problem of random crashes 
and have produced the follow- 
ing remedies. Let me stress 
that the work involved should 
be attempted only by those 
with sufficient knowledge and 
soldering skills. 


1. Replace the 7805 with the 
2amp 78S05. 

2. Check that the voitage at the 
68008 is 4.9V. 

3. Put a 0.1mfd capacitor 
between the centre and right- 
hand pin of the 78S05. 


4. Replace the long jumper 
wire from the regulator to the 
thick track just below the 9-way 
membrane connector with 
solid cored insulated wire with 
two or three ferrite beads on it. 
5. Connect a 0.01mfd capaci- 
tor between pin 6 and pin 15 of 
the 8301, then a 0.001mfd 
from pin 6 of the 8301 to pin 15 
and pin 35 of the 68008. 

6. Solder a.0.01mfd capacitor 
in parallel with a 10mfd 10V 
tantalum capacitor and con- 
nect to pin 20 and pin 40 with + 
to pin 40 of the 8309 co- 
processor. 


A. Change IC19, IC20, IC21 
and IC27 for their HCT equiva- 
lents. 

B. Connect a 68pf capacitor 
between each data line and 
ground. 

C. Replace the 0.01mfd capa- 
citors between each RAM chip 
with 0.33mfd if the RAM chips 
are the slow 200ns types. 

D. Fit a 4.7mfd tantalum capa- 
citor across the supply pins of 
every fourth RAM chip in the 
QL. 

With a small outlay and 
some careful work you will 
have a QL which is completely 
reliable and crash-proof. 
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his article continues our explor- 
ation of QL and Thor system 
ROMs, the program chips which 
allow the computer to recognise 
and act on commands. In recent years ! 
have documented more than 100 bugs in 
QL ROMs, from version AH to MG. This 
month | look at improvements and correc- 
tions in new ROMs from QView and Thor 
International. It is not all good news. | 
hope to excite veteran bug-hunters with 
tales of a few newly-detected QL faults. 

Minerva is the name of the Roman 
goddess of fortune and a QL ROM 
upgrade from QView. It is a plug-in 
replacement for the two Sinclair ROM 
chips located on the QL circuit. board 
behind the cartridge socket. Once 
Minerva is fitted in your QL it cures bugs, 
adds new features and speeds the sys- 
tem. 

Minerva still contains some. original 
Sinclair code, so QView has had to be 
careful to avoid infringing copyright. It 
supplies the upgrade as a back-up of your 
normal QL ROM, with improvements. You 
must prove that you own a QL by sending 
an image of your original ROM, easily 
created with the command SBYTES 
filename,0,49152. 

When QView receives your disc or 
cartridge, along with £30, it copies docu- 
mentation on to the medium and supplies 
a tiny circuit board holding two chips. The 
biggest chip is a64K EPROM which holds 
the new operating system. Below is a 
logic chip which makes the EPROM seem 
like the Sinclair 48K ROM. 

The remaining 16K of EPROM space is 
disabled, so you can use the external 
cartridge port as normal. You can extend 
the chip contents with an EPROM prog- 
rammer and enable all 64K by cutting a 
link but if you do so you must not use the 
ROM socket on the back of the QL. 


Fit with care 


Minerva is easy to fit, so long as you are 
careful. Disconnect the power, then open 
the QL case by undoing eight cross-point 
screws in the bottom of the box. The two 
screws holding the Microdrives should be 
left alone. Next you must prise both 
Sinclair ROM chips out of their sockets 
with a screwdriver or chip extraction tool. 
Be careful not to prise up the socket as 
well, or you will need a new circuit board. 

Minerva plugs into either of the empty 
sockets, so long as your internal RAM or 
keyboard interface does not get in the 
way. It is easy to plug in the unit but hard 
work getting it out if you need to put back 
your old ROMs for some reason. Once the 
keyboard is screwed in place you can 
connect power and you are ready to go. 

The documentation consists of text files 
and short Basic and machine code prog- 
rams. You can read the text and code by 
copying the files to the screen, importing 
into Quill or using a text editor. You get 
about 15 A4 pages, with an introduction, 
fitting notes and sections covering con- 


MINERVA 
THE ROM 


cepts, Basic, assembler, and known 
incompatibilities,, which are. remarkably 
few considering the number of improve- 
ments. 

| shall discuss the features under three 
headings. ~ innovations, speed-ups and 
bug-fixes. The innovations split logically 
into two groups — improvements to Basic 
and device. enhancements. 

Minerva. SuperBasic interpreter has 
had a major overhaul. At last you can use 
integer and string values in SELECT 
statements. Sub-ranges and multiple in- 
stances are allowed, in single or multi-line 
commands. You can already compile 
these with Turbo or the latest version of Q- 
Liberator but now you can test programs 
interactively which use them. 

Minerva lets you write integer and even 
string FOR loops, with all the flexibility of 
floating point loops but a limit of four 
characters on string instances. Integer 
loops save time, especially in array 
indexing. 

String FOR loops are alittle odd as they 
treat characters as signed byte values but 
they are useful at times, such as when 
printing the Minerva extended character 
set — figure one — Integer FOR loops can 
be compiled with Turbo and Q-Lib but 
neither supports string FOR. 

3D and 2D calculations are easier 
because of improvements in ATAN and 
ABS. ATAN accepts one or two para- 
meters. If you give it X and Y separately it 
converts rectangular co-ordinates into 
polar form, avoiding overflows and quad- 
rant errors. ABS can take multiple para- 


“Minerva is the name 
of the Roman goddess 
of fortune, and a QL 
ROM upgrade from 
OView.” 


meters, returning the square root of the 
sum of their squares. Pythagoras would 
have approved. 

Other changes improve DATE, FILL, 
MODE, PAUSE, RESPR, SCALE, 
SDATE and VER$ without harming prog- 
rams which use them in the normal way. 
There are some new vectors for machine- 
code programmers but they are useless if 
your code must work with Sinclair ROMs 
as well. 

The keyboard editor, 10.EDLIN, has 
been improved; the Space key and Enter 


Simon Goodwin 
looks again at the 
bugs and features 
of QL-compatible 
systems. 


work even if you press Shift, as in Quill. 
Esc aborts the editor and Alt Left and 
Right move the cursor to the start and end 
of the text. 

Shift Tab and Tab move the cursor back 
and forth in eight character steps and you 
can delete to the end of the line or to the 
Start of the window in one step. 10.EDLIN 
is used by EDIT, INPUT and functions like 
DIY Toolkit EDLINES. 

You can ‘compose’ accented charac- 
ters on the fly, with no need to look them 
up in the QL Concepts guide. Type Ctri- 
Enter, then the required letter, then the 
type of accent ~ ‘/' for an acute accent, ‘”’ 
for grave, colon for amulut, ' a’ for circum- 
flex, and so on. 

You can type the letter and accent in 
either order or use the old keystroke. 
Caps Lock and Shift work as normal. 
There are 50 possible combinations, 
including symbols as well as accents. To 
type an arrow, press Ctrl Enter, then the 
arrow key. 

The Microdrive handler no longer locks 
up the machine when RAM is scarce. 
Minerva marks files with the data when 
they are created or updated. Unfortun- 
ately disc ROMS and SuperTootkit 2 over- 
ride this code. 

The QL hardware is designed to allow 
two areas of screen memory, either of 
which can be displayed at any time. They 
can both be in the same mode or one can 
be in MODE 4 and the other in MODE 8. 
Switching between the two screens is 
instant; in essence, all it takes is a single 
POKE to the display master chip. 

Sinclair never implemented the second 
screen and it is not possible to use it with 
Sinclair versions of Qdos because vital 
system information is stored in part of the 
memory allocated to screen 2. Qdos 
would crash as soon as you cleared the 
second screen. 

QView has fixed Minerva so that both 
screens can be used if you press F3 or F4 
after a re-set. Anew MODE command lets 
you look at either screen, in MODE 8 or 
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‘Sinclair speed, so the QL starts faster as 
- 800n as you turn it-on. The memory test 
ean be skipped once you have started the 


bugs in FILL, ac andlipse handing, For a 
@ laugh, try this on a QL or Thor: 


FOR r=70 to 99: ELLIPSE 50.506 


lenge ah Ban a y doo te. 


make a number of trivial system calls, like 
Quill and the CP/Mulator. The code to find 
channels and tasks is also faster. 

The speed-ups in Minerva are many but 
often subtle. Almost every program 
shows some speed improvement but 
arguably the most important time-savers 
are the corrections which prevent the 
machine crashing at odd moments. 

Minerva 1.63 fixes most of the Qdos 
bugs | have listed in previous issues of QL 
World — most recently in February. It is 
more difficult to crash the machine acci- 
dentally. There is insufficient room to list 
all the fixes but here are a few examples. 

Calls to deleted procedures no longer 
crash Basic. You can safely use more 
than nine parameters or locals in a 
definition. EDIT works after a ‘not com- 
plete’ report. Memory is less likely to 
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vanish as you run or edit programs. 
RESPR works with tasks running. 

The MT.ALCHP system call is used to 
accept negative parameters when allo- 
cating memory on the system heap. Thus 
the Toolkit commands ALCHP and ALLO- 
CATION could crash the machine if given 
negative parameters. Like Minerva, last 
month's DIY Toolkit function RESERVE is 
always safe, as it rejects a negative 
parameter. 

Minerva reports ‘invalid job’ if you 
specify a non-existent owner in D1 when 
opening a channel. Sinclair ROMs crash. 

Qdos needs a buffer of more than 1K to 
keep track when you use FILL in a 
window. If you close the channel before 
executing FILL 0 the memory is lost for 
ever, unless you are using Minerva. Sadly 
the bug is restored if you have QPTR 
loaded. 


WHEN works now 


WHEN ERROR and WHEN Variable 
had terrible bugs under the Sinclair 
interpreter but work well under Minerva. 
WHEN ERROR can intercept any report, 
whereas error-trapping during calcula- 
tions used to crash the QL and Thor. 

WHEN Variable runs a block of code 
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whenever a simple variable matches a 
condition. For instance, you can write: 


WHEN x>511 
PRINT #0;“Horizonta! overflow.” 
x=511 

END WHEN 


This code is executed whenever X is 
assigned a value greater than 511; then 
the program continues. Sinclair ROMs 
ignored assignment of FOR counters and 
could crash if more than 20 WHEN blocks 
were active or a WHEN block was 
deleted. Minerva does not have those 
bugs but it cannot yet trap array access or 
the implicit assignment of INPUT and 
READ. 

Most QL MERGE bugs are fixed by 
Minerva but you get the report ‘not 
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implemented yet’ if you try to MERGE 
from inside a procedure. Sadly, SAVE still 
fails to report an error if it fills a device or 
you press CTRL-SPACE before it has 
finished. 

Minerva fixes the bug which locks the 
QL if you close a network channel without 
writing to it but unfortunately SuperToolkit 
2 over-rides the fix and re-introduces the 
bug. Network broadcast now works, so 
long as all the machines have Minerva 
fitted. 

A few benign bugs remain; SCROLL 42 
still allows random access and PAN still 
lets you turn cursors on or off. 

The first version of Minerva returned 
VER$ as “JSL” standing _ for 
“Jonathan”, “Stuart” and “Lawrence”, 
the team at QView. Most of the work was 
done by Lawrence Reeves. The Qdos 
version returned is 1.61. It had a few new 
bugs of its own but they have been fixed in 
1.62 and the latest 1.63, VER$ “JSL1”. 

Several programs are provided to cir- 
cumvent bugs in existing software which 
become obvious under Minerva. A 
‘podge’ program fixes old Q-Liberated 
tasks to run under Minerva and the MG 
ROM. Another program fixes bugs in 
Hotkey versions 2.06 and earlier. 

Minerva cannot run the Stack Software 


SuperTrace but has its own single- 
stepping trace extension, which shows 
the line and statement of each line 
executed but no listing. The ROM con- 
tains further ‘hooks’ which should let you 
trace assignments and resident code 
calls if you write more code. 

Another program, written in SuperBasic 
with Toolkit 2 commands, performs rudi- 


“Several programs are 
provided to circumvent 
bugs in existing 
conan which become 
obvious under 
Minerva.” 


mentary checks to see if a program is 
likely to work in the two-screen mode. 

The first version of Minerva had a few 
‘new’ bugs but version 1.63 is reliable 
enough to be fitted permanently in my 
work QL. So long as you avoid the two- 
screen mode it enhances almost all 
commercial QL software. This is a 
remarkable achievement and Reeves is 
to be congratulated for fixing so much 
without introducing new problems. 
Minerva is a big step up from Sinclair 
Qdos and good value at £30 for 48K of 
EPROM. 

Meanwhile, in Denmark, Thor Interna- 
tional has revised Argos, the QL- 
compatible operating system of the Thor 
XVI. The first Thor 8 machines ran version 
4 of the system, based on Sinclair JS 
ROM and QL parts. Version 5 was used in 
the Thor 20 and now we have Argos 
version 6 on the XVI. 

The first ‘solid’ version of Argos was 
6.30, VER$ “PT”, named after David 
Oliver's wife Penny Tzatzaris. Despite its 
‘virtual clean room’ derivation it had most 
of the bugs of the QL MG ROM. Minor 
tweaks followed and a much-improved 
hard disc device driver was introduced for 
version 6.37. ; 

Version 6.40 was a disaster, introduc- 
ing scores of new bugs, the worst of which 
were banished in 6.41. Development is 
notionally ‘frozen’ at 6.41 but in practice | 
have seen two versions with this number, 
PO and CS, with slight differences. 

Sadly, you cannot run Minerva on the 
Thor but the Danes have fixed one bug 
which afflicts all QLs: 


DIM X(4) : INPUT X 


It gives a ‘not.implemented’ error on 
Minerva. QL ROMs just read one value 
and discard it but the Thor patiently 
accepts five values, for X(0) to X(4). 
Disappointingly, DIM Y(4) : Y=X gives 
‘operation not yet implemented’. 

There is still plenty of scope for ROM 
developments. Watch this space and 
please write with full details if you find new 
bugs. 
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The Archive 


Screen Driver 


In a further investigation into the Archive screen driver and its codes, 
Mark Coulthard relates the Archive commands to IBC PC-Four 


commands and produces some procedures to implement them. 


he power and potential of the 

Archive database program is 

well-known to those who have 

taken the time and effort to 
explore the database language and apply 
it. Having used several card index-type 
database management systems on IBM 
clones, Archive is far more impressive. Its 
ability to have several files open at once 
allows relational databases to be imple- 
mented and used according to your own 
program. lt is the programming language 
which allows flexibility to contro! data and 
also drive pen plotters for high-quality 
output. 

The QL screen displays can lack the 
professional appearance often found or 
quality programs on IBMs. This is due 
mainly to the use of the IBM graphics box 
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characters available on IBM PCs. These 
box characters can be used with good 
effect within the Psion Xchange suite or 
Psion PC-Four running on a PC. 


Development 


The development of a database for the 
recording of borehole data, which 
required seven files to be open at once, 
led to an examination of the screen driver 
used in PC-Four. The development of the 
program was carried-out at work on an 
IBM and at home on a QL with programs 
and files being exchanged by linking QL to 
IBM via the RS232 port. 

The use of graphics characters and 
window handling on both machines was 
therefore imperative. On testing the QL 
Archive version 2.3 it was a pleasant 


surprise to find that the same commands 
can be used on QL Archive as on IBM 
versions of PC-Four. 

The QL Archive uses its own font which 
has graphics characters in ASCII code 
starting at 224 —table 1. These characters 
are accessible both from the keyboard or 
by using the PRINT CHR() from the 
Archive language. Any attempt to use 
these from Basic using CHR&() will not 
work. 


Dashed 


The possibility of using these charac- 
ters in screens loaded from Archive was 
dashed when it was realised that the 
character (r), the top left box corner, was 
generated by the F1 key which unfortun- 
ately is also the help key. Thus a complete 
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box cannot be drawn when editing 
screens from within Archive. The results, 
however, are acceptable when using the 
PRINT CHR() command. 

The presence of the graphics charac- 
ters is just the tip of the iceberg, since 
there are 24 other screen driver codes. 
The most useful one enables windows to 
be defined from within the Archive lan- 
guage, thus bringing screen displays ona 
par with SuperBasic. One disadvantage 
of the graphics shapes on the QL is that 
they do not fit the character square fully 
and thus solid lines cannot be obtained. 

The Archive screen driver allows 
screen displays to be controlled by pas- 
sing control codes to the screen driver 
from a program using the PRINT CHR() 
command. All control codes are within the 
range 0-31, i.e., PRINT CHR(20). Some 


TABLE 3 
Parameter. Definition 
x-cootd Top left 


y-coord Top left 
x-coord Bottom right 
y-coord Bottom right 


of the control codes require additional 
parameters again passed using chr‘(). 
Failure to comply with the correct codes 
generates an error number 39 I/O failure. 


Paper/Text Control Codes 


a) Text Colour : Driver Code 1:1 para- 
meter. 

The parameter normally takes the value 
0-7 and thus bits 0-2 of the byte can be 
set. The value defines the colour as 
shown in table 2. If bit 7 of the parameter is 
also set — i.e., numbers 128-135 — the 
current text colour is saved and the 
following text is printed in the 
tempoarary colour, i.e.; 


PRINT CHR(1)+CHR(2)+“AAA” 
PRINT CHR(1)+CHR(132)+“BBB” 
PRINT “CCC” 


These lines will print three red As followed 
by three green Bs and three red Cs. 


b) Paper Colour: Driver Code 2:1 para- 
meter. 

This code sets the paper colour as per 
table 2. If bit 7 of the parameter is set the 
current paper colour is saved and the 
specified paper colour is set temporarily. 


c) Repeat Characters: Driver Code 4 : 2 
parameters. 

Similar to the SuperBasic command 
REPT. The first parameter is the charac- 
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ter to be repeated; the second is the 
number of repetitions, i.e., PRINT 
CHR(4)+CHR(231)+CHR(10) will pro- 
duce the top edge to a box. 


Cursor control codes 


A large number of control codes are used 
to manipulate the cursor from within the 
print statement. 


a) Underline : Driver Code 5: No para- 
meters — toggle switches between under- 
line on and off. 

b) Cursor Right : Driver Code 6: No 
parameters — moves the cursor right by 
one character space. 

c) Cursor Left : Driver Code 8: No 
parameters — moves the cursor left by one 
character space. 

d) Tab : Driver Code 9 : One parameter — 
similar in effect to the tab statement from 
Basic. It moves the cursor to the column 
specified in the parameter printing spaces 
in the process; i.e., PRINT CHR(9)+ 
CHR(15) will move the cursor to the 
fifteenth column in the present window. 
e) Line Feed : Driver Code 10 : No 
parameter — moves the cursor down one 
line. 

f) Cursor Up : Driver Code 11 : No 
parameter — moves the cursor up one line. 
g) Form Feed : Driver Code 12 : No 
parameters — this clears the screen and 
homes the cursor. 

One should remember that when this is 
executed from the print statement, the 
print statement will issue a line feed 
automatically and therefore a semi-colon 
should be used to prevent this. 

h) Carriage Return : Driver Code 13 : No 
parameter — moves the cursor to the left- 
hand margin of the window on the same 
line. 

i) Cursor On : Driver Code 14 : No 
parameter — switches on the cursor. 

j) Cursor Off : Driver Code 15 : No 
parameter — switches off the cursor 
display. 

k) Home Cursor : Driver Code 30: No 


parameter — moves the cursor to the top 
left corner of the window. 

1) Position Cursor : Driver Code 31: Two 
parameters; the two parameters are used 
as the x-co-ordinate; the y—co-ordinate 
and its action is similar to the at command. 
m) Delete Character : Driver Code 19: No 
parameter — moves the cursor one chara- 
ter space to the left and prints a space, 
thus deleting to the left of the cursor. 


Window commands 


The ability to define a window from 
Archive is probably the most useful. 

a) Window definition : Driver Code 20: 
four parameters. This command defines a 
window in character co-ordinates from the 
top left-hand corner of the screen. The 
window is obtained by defining the origin 
of its top left corner using the first two 
parameters, and its size with the next two 
— tables 3. 


PRINT CHR(20)+CHA(15)+CHR(5)+ 
CHR(35)+CHR(15) 


This gives a window starting at position 
15,5 and having the size of 20 columns 
wide and 10 lines deep. Additional codes 
are also used to alter the control of the 
window scrolling. 

a) Scroll Screen Up : Driver Code 21: One 
parameter — scrolls the screen up by the 
number of lines specified by the para- 
meter. 

b) Scroll Screen Down : Driver Code 22: 
One parameter — scrolls the screen down 
by the number of lines specified by the 
parameter. 

c) Set Boundary Type : Driver Code 25: 
One parameter — the parameter sets the 
cursor behaviour at the edge of the 
window with each bit of the parameter 
controlling one specific aspect — table 4. 
d) Swap ink and paper colours : Driver 
Code 26: No parameter — exchanges the 
ink and paper colour. 

e) Carriage return and line feed : Driver 
Code 28 : No parameter. 
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f) Escape Sequences : Driver Code 27 : 
One parameter ~ provides a range of 
facilities most of which are covered by the 
other codes. 


in procedures. The procedures shown in 
listing one demonstrate the use of some 
of the codes. The three procedures TEST, 

WINDOW__B and WINDOW__NORM 


All these commands can be used in 
combinations to produce quality screen 
displays and handling and are used best 


eet 08 


are activated by running TEST on the 
Archive environment. 
WINDOW__B : This procedure defines 


a window according to the parameters 
passed to it. The parameters are almost 
the same as for Driver Code 20 except 
that the window size, in columns and 
lines are requested i.e, the call 
WINDOW__B;15,5,20,10,2 produces a 
window starting at column 15,line 5 and is 
20 columns wide and 10 lines deep and 
colour 2. The window is produced with a 
shadow effect and a border using the 
graphics characters. The window inside 
the border thus scrolls without affecting 
the border. 

The TEST procedure calls WIN- 
DOW__B and writes text to the window in 
a variety of ways; note that the procedure 
can be run in either MODE 0,4 or MODE 
0,8. 


: print ; 3 prine print "and some more“ 


prt ME (2) chr) aha 1 +e 0): rem set paper and ink eolour 


y¥<= 


wines aS eye 
print y bm "5: prin ss I oO" 
a ere 


ome \ 


a es : <_< 
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his adventure was 

published originally 

by GAP Software 

but when it ceased 
trading, the author, Tony 
Woolcock, arranged for CGH 
Services to publish an updated 
version, with many of the ear- 
lier criticisms rectified. 


Adventure 


The adventure is not the 
ordinary run-of-the-mill fight 
against fiends and monsters in 
some kind of fantasy world but 
is instead a fight against 
bureaucracy and the criminal 
fraternity. There has been a big 
robbery at the local bank and 
although the robbers were 
chased by one brave citizen 
who managed to get the num- 
ber of the get-away car, it is 
your job to identify the robbers 
and to apprehend them. 

So, armed only with your 
truncheon, helmet and note- 
book, you find a memo left by 
the superintendent welcoming 
you to your new job and are 
thrown into the world outside 
the police station. 

There seems to be no way of 
getting killed in this adventure 
but mishandling the situation 
may mean that you ruin your 
chances of completing it. 
Handling evidence without 
taking precautions against 
fingerprints will render the evi- 
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dence useless, so you need to 
proceed carefully. Although 
there is a mastiff guarding 
some gates which will not let 
you move, there is an easy way 
round any fun-loving dog if you 
think about it. All the prob- 
lems in the adventure are very 
logical and once thought of in 
terms of what the police would 
do, present no real difficulty. 

There is help in the form of a 
police computer which holds 
collaters’ records, criminal and 
vehicle records, a crime com- 
plaint file and a scene-of-crime 
office. There is also a police 
dog which can help once you 
find his name. The dog is easy 
to control by commands such 
as ‘SEEK’ and ‘FIND’, which 
make it smell the air for scents 
and point in a certain direction. 


Police 


There is also a police car to 
help you to reach locations 
faster. This, too, is very easy to 
control, since ‘DRIVE CAR’ 
and ‘PARK CAR’ are all that 
are needed; once you are driv- 
ing the car, you use the normal 
direction commands. Beyond 
that very limited help you are 
on your own and must look for 
clues in much the same way asa 
detective would investigate a 
crime. 

To give you a little more help 


The Blag 2 is a battle of 
wits, finds Rich Mellor. 
... excellent, forming a 
breakaway from the rather 
tired format of ordinary 
adventures. . . 
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in solving the crime you can 
question the characters who 
are strewn all over the place 
and ask about different aspects 
of the case. If you ask about the 
‘robbery’, the eye-witnesses 
will tell you what they saw. Not 
all characters you meet like the 
police, so a little tact is needed 
to obtain information from 
them. 


Input 


A novel feature is the use of 
three windows to display infor- 
mation. The main window con- 
tains a description of the loca- 
tion; another lists all the 
objects both present and car- 
ried by you and the third 
window is used for you to input 
commands and for the compu- 
ter to respond to those com- 
mands. Some commands are 
made redundant, such as 
LOOK and INVENTORY, 
since the information is always 
present. Luckily for many QL 
users, despite the number of 
information windows the game 
fits well on a TV screen, which 
was one of the major criticisms 
of the original version. 

Certain actions, such as 
questioning suspects, or using 
the telephone, call up a fourth 
pop-up window which overlaps 
all the other windows and is 
used for commands specific to 
that action. When questioning 


someone, the questions you 
wish to ask along with the 
answers appear in this window. 
It does not slow the game any — 
it probably speeds interpreta- 
tion of commands ~ but unfor- 
tunately must contribute to the 
use of memory. 

WRITE or READ NOTES 
will show another feature of 
the game, “Blunder’s note- 
book”, which enables you to 
make short notes on different 
aspects of the case and save the 
notes on Microdrive or disc. It 
seems as if this notebook can 
hold a good deal of informa- 
tion, media space permitting, 
and therefore obviates the 
need for pencil and paper. 


Successful 


The game also features a 
large database of police trivia 
which is displayed at each loca- 
tion. That unfortunately does 
not provide hints towards the 
successful completion of the 
game but gives it an added 
dimension. It can be a little 
annoying and perhaps the abil- 
ity to turn this feature on and 
off would be appreciated. 

There were plans to produce 
a Blag 3 on the QL, which was 
to contain more crimes to solve 
and include graphics and other 
little extras. It seems it will now 
appear only on the ST, filling 
around three discs. In this, 
Woolcock is following the foot- 
steps of many software authors 
on the OL. 

My only criticism of the 
game is that it contains a few 
minor spelling mistakes but 
otherwise it is excellent, form- 
ing a breakaway from the 
rather tired format of ordinary 
adventures. It is excellent 
value and I would recommend 
it to anyone who enjoys a little 
detection. 
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his month's article contains list- 
ings which complete the file 
management project developed 
to demonstrate the pattern- 
matching routine published recently in 
this series. Last month’s article concen- 
trated on the presentation of information, 
whereas this month’s routines are more 
concerned with the behind-the-scenes 
manipulation of files and devices. 

The structure which binds together the 
accompanying definitions is simple. The 
most important routine printed here is 
listing 16, Search__Mode, through which 
all the remaining routines are reached 
from the main program. 

Three functions are immediately sub- 
ordinate to Search__Mode and three proc- 


This month completes last 
month’s file management 
project with file and device 
matching routines. 


edi .es, one with a subordinate function, 
are reached through the File_Check 
function. This simplicity is repeated in the 
majority of the individual definitions, 
which is a tribute to the strengths of a 
structured programming language used in 
an effective manner. 


Nevertheless, this program set a puzzle 
which seems to have no straightforward 
solution. File directories can vary from 
just two entries on an under-utilised 
Microdrive to more than 100 on a disc full 
of short files. When a large directory 
listing is displayed on the screen the 
window scrolls to allow more information 
to appear. When the same information is 


directed to the printer, however, the 
length of a piece of paper remains stub- 
bornly the same. 

To control output to the printer the 
concepts of page length and page breaks 
have a large influence on the design of the 
program. The main data arrays are 
designed to hold one full page of data and 
the Search__Mode procedure contains a 
FOR. . .NEXT loop which is repeated 
once for each line of output. If the loop 
terminates before a listing is complete the 
listing is interrupted by a page break. 

Users must be given not only the option 
to print a page when it becomes full; they 
must also be able to select a print at the 
end of each directory listing. 

It would be wrong for the program to 
compel users to obtain printouts at the end 
of each directory. If a user is searching for 
a dozen related programs saved on three 
or four discs, for instance, it would be 
appropriate to place the output on to a 
single page. 


The essence of the problem is that input 
is obtained in irregular-sized portions 
while the output must conform to a fixed 
maximum page length. This inconsistency 
must be modelled accurately within the 
Search__Mode procedure. The procedure 
is unlikely to be of much relevance to any 
other program and therefore only its 
general design is likely to be of interest 
here. 

Search__Mode is designed round four 
concentric loops with not a little of the 
logic consigned to slave functions. Slave 
routines are those called by only one 
routine in a: program and which are 
designed to simplify the operation of their 
masters. All three functions return binary 
values, one or zero, depending on 
whether an option has been selected by 
the user. 

This technique simplifies the main code 
by subcontracting to the slave routines not 
only an optional task but also the menu 
operations associated with it. If the first 


slave function — listing 17 — had been 


written as a procedure it would have 
obtained a directory listing from a file 
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Listing 17 


1708 DEFine FuNction 
17®5 LOCal Loop, a$ 
1718 Menu 4.1: 
1715 DELETE TempFile$ 
1728 OPEN_NEW#T, TempFile$ 
1725 DIR#AT, Devs 

1730 CLOSET: 
1735 INPUT#T, Medium$, as 
1740 Free = INT(a$/2) 


Fetch_Dir 


1745 Used =a$("/" INSTR a$ +1 TO “ “ INSTR ag -1) 


175@ Used = INT (Used /2) - Free 
1755 Medium: Space: RETurn 1 


176@ END DEFine Fetch_Dir 


IF Bar_Menu (2) <2: 


OPEN_IN#T, TempFile$ 


RETurn @ 


at the centre of the nested iterations that 
the call to the wildcard-matching routine 
takes place. In all, this procedure may 
have exceeded Papert’s ideal of a mind- 
sized segment of code but it presents in a 
single place the dynamics behind obtain- 
ing, filtering, storing and printing file- 
names. The mechanics of these processes, 
of course, lie in the subordinate definitions. 

In comparison with Search__Mode the 
slaves which serve it are straightforward. 
Listing 17 obtains a directory listing, 
having first used Menu 4.1 to obtain the 
user's permission. the technique is simple — 


Listing 18 


1880 DEFine FuNction 
1885 Menu 4.2 

181@ IF Bar_Menu(2) = 2 
1815 
1820 
1825 
1830 
1835 
1840 
1845 
1850 


PRINT#P; \ 
PRINT#P; 


IF File$(X) = 
PRINT#P, TO 


END FOR X 
1855 PRINT#P, 
1860 RETurn 1 
1865 END IF 

1870 RETurn @ 


PRINT#P; \\ DATES 
"Files Matching "; 
Pattern$ \\ 
FOR X = 1 TO DIMN(File$) 

ms RAITT xX 
8; Media$(X); 
PRINT#P, TO 24; 


CHR$(12) 


Print_Page 


File$(Xx) 


1875 END DEFine Print_Page 


storage medium. As a function, however, 
it can also include the menu which asks the 
user if a directory listing is to be obtained. 
If the user declines the offer the function is 
aborted and a zero is returned; otherwise 
the function completes its task and returns 
a one, 

Many stylists argue that the job of a 
function is to convert arguments into 
values and that all other forms of proces- 
sing belong to procedures. Similarly, they 
claim that it is not the business of a 
procedure to alter a value passed to it. It 
may be a good yardstick by which to 
measure the quality of a piece of code but, 
as with all rules, there are many valid 
exceptions. Practical programmers cannot 
afford to be pedants and the principles of 
accuracy, brevity, consistency, dependa- 
bility and efficiency frequently over-ride 
such dogmatic regulation. 


Even after clearing the decks of much of 
the supporting code the Search__Mode 
procedure remains complicated. In ess- 
ence, the outer loop cycles once for each 
directory listing. At the end of each cycle 
the user is offered the opportunity to print 
the filenames so far collected. Leaving 
aside the second loop for a moment, the 
FOR. . .NEXT loop cycles once for each 
correctly-matched filename found in the 
directory. If the FOR. . NEXT loop 
identifier reaches its maximum value the 
user is offered the print option. Whether 


Sinclair/QL World November 1989 


the user accepts the offer or not, the arrays 
must be re-initialised before any more 
filenames can be collected. 

The FOR. . .NEXT loop is exited pre- 
maturely at line 1618 if the end of a 
directory listing is detected, at which point 
the print offer is also made. If the user 
makes a printout the arrays are re-set for 
the next page and the next directory. If no 
print is made the array must continue to 
fill without losing the filenames so far 
gathered. The FOR. . .NEXT loop there- 
fore restarts not at 1 but at the present 
value of X, its identifier. 

The innermost loop cycles once for each 
filename in the directory listing; it is here 


Listing 19 


190@ DEFine FuNction 
1985 LOCal Loop, key 
1918 Menu 3 

1915 REPeat Loop 
1928 
1925 SELect ON key 
1930 = 1: RETurn @ 
Show_File 


1935 be 
1940 3: 
1945 4: 
19508 5, 8: RETurn i 
1955 END SELect 


1960 Menu 3 
1965 END REPeat Loop 


1970 END DEFine File Check 


IF Delete_File: 
Print_File 


a channel is opened to a newly-created 
file and a directory listing diverted to that 
channel. The channel can then be closed 
and re-opened to read the file contents, 
Directory listings are headed by the name 
the medium was given when it was 
formatted, followed by the number of free 
sectors. These lines of information are 
read from the file and used to alter the 
program’s information display. When 
control is passed back to the master 
procedure, therefore, the next line to be 
tread from the file will be a filename. 


Listing 18 also seeks the user’s approval 
through a menu before carrying-out its 
task of printing a page of data. Each page 
of output is headed by the date and the 
search pattern being used. Each filled 
element of the File$ display is then 
printed, the last being followed by the 
Epson code for a linefeed. 

The File_Check function at listing 19 
contains only a menu offering facilities 
controlled by its three subordinate proce- 
dures. Its menu is displayed after each 
successful filename match if the user has 
selected the “Examine” option from the 
main menu. The default option is to 
continue the search but users can elect to 
place the file contents on to the screen or 
the printer or to delete the file. The menu 
is repeated so that users can scan a file on 
the screen, obtain a print of its contents 
and delete it with three consecutive menu 
selections. 

Listing 20 controls the display of file 
contents on the screen. A new channel is 


File_Check 


key = Bar_Menu (max) 


RETurn @ 
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opened to the selected file and its contents 
are obtained line by line in a loop. This 
procedure is only slightly slower than 
using the COPY command and has the 
advantage of permitting users to stop 
the listing by pressing the ESCape key 
at any time. By selecting a menu option, 
users can continue the listing again or 
abandon it. 

Listing 21 controls the deletion of files, 
an irrevocable step which, once taken, is 
often regretted. It is the responsibility of 
good software to warn users of such 
impending doom and to offer an oppor- 
tunity for the decision to be reconsidered 
and perhaps rescinded. In this program, 
selecting “Delete” from the File_.Check 
menu leads to an “Are you sure?” menu 
before the file is finally removed from the 
medium. 

The remaining listings are more benign, 
supervising the progress of file contents to 
the printer. In a structure reminiscent of 
the Search_Mode procedure a number of 
loops are nested to control the action. The 
outer loop cycles once per page, the 
middle loop iterates once for each line 
drawn from the target file and the inner 
loop repeats itself each time a line is 
printed to the printer. 

If the need for a new page is detected 
the New__Page function is called, It prints 
aheader, increments the page counter and 
waits patiently until the user indicates that 
the printer is ready to go. If no more pages 
are required control returns to the 
File_Check menu. 

The file management program is now 
complete. It is still fairly crude, particu- 
larly with regard to device handling, 
because of the limitations of SuperBasic 
and the need to compress the program to 
manageable length. Nevertheless it shoul 
prove to be a useful addition to your 
software library. 


Listing 20 


2000 DEFine PROCedure 
2805 LOCal Loop, r$ 
2018 CLS: OPEN_IN#@F, 
2015 REPeat Loop 

2020 IF INKEY$ = CHR$(27) 

2825 Menu 4.5: IF Bar_Menu(2) 
2830 END IF 

2835 IF EOF (#F): 
2040 INPUT#F, rs: 
2845 END REPeat Loop 
205@ CLOSE#F: PRINT FILL$("*", 
2055 END DEFine Show_File 


Show_File 


EXIT Loop 
PRINT r$ 


49) 


Listing 21 


2100 DEFine FuNection 
2185 Menu 4.3 

2110 IF Bar_Menu(2) = 2 

2115 DELETE Dev$ & File$(X) 
2120 PRINT "File deleted": 
2125 END IF 

2130 RETurn @ 

2135 END DEFine Delete_File 


Delete_File 


List 


2288 
2202 
2204 
22085 
2287 
2208 
2216 
2218 
2228 
2222 
2224 
2225 
2226 
2228 
2238 
2232 
2234 
2236 
2238 
22ke 
2242 
2244 
2246 


ing 22 


DEFine PROCedure 
LOCal Per_Page, 
LOCal PageNum, 


PageNum 


Print_File 
Per_Input, 
Lyne 
Dev$ & File$(x) 


Per_Line 
R&S, 


= 1: OPEN#F, 


REPeat Per_Page 
IF NOT New_Page THEN EXIT Per_Page 


REPeat 


IF EOF(#F): 


INPU 


Per_Input 
EXIT Per_iInput 


THF, R$ 


REPeat Per_Line 


IF 


EN 
PR 
Ly 
IF 


EL 
EN 


END 
END RE 


Lyne > 58 

PRINT#P, CHR$(12) 
IF NOT New_Page THEN EXIT Per_Page 
DIF 
INT#P; " my 
ne = Lyne + i 
LEN(R$) > 78 
R$ = R$(71 TO) 
SE 
EXIT Per_Line 
D IF 
REPeat Per_Line 
Peat Per_Input 


R$(1 TO 78) 


2248 END REPeat Per_Page 


2258 


CLOSE#F 


2265 END DEFine Print_File 


Listing 23 


2388 
2305 
2318 
2315 
2320 
2325 
2330 
2335 
2399 


Dev$ & File$(x) 


1: 


RETurn 1 


DEFine F 
Menu 4.4 


IF Bar_Menu (2) 
PRINT#P, File$(X)!Iti"Page "; 


Lyne = 

RETurn 
END IF 
RETurn @ 
END DEFi 


EXIT Loop 


uNction New_Page 


= 2 

PageNum\\\, 
1: PageNum = PageNum + 1 

1 


ne New_Page 


Next month: Many programs can be 
enhanced by the judicious use of computer 
graphics. Mike Lloyd reveals some simple 
but effective graphics routines and also 
explains the trigonometrical commands 
found in Super Basic. 
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his program is a simulator of the 
moon system of Jupiter. It works 
in real-time and it is fast enough 
to see the four moons revolving 
round the mother planct. 
The program has some simple but 


interesting features; you can choose a date 
and see the position of each satellite on 
that date. I went to ASTER, the astrono- 
mical society in Barcelona, to check my 
results and found only very small differ- 
ences from its figures. 


There is also an option to sce the small 
moons revolving in an equatorial planc. 
You can also change the interval incre- 
ment — normally one hour. The program 
could also be used for modelling the 
revolutions of the planets around our sun 


and I am working on that version. 


1000 REMark OOOO OO IOI IOI DIOR IOK 1620 CIRCLE 73,50,3.5 

1010 REMark CALCULATION OF THE POSITION 1630 FILL O 

1020 REMark OF THE GALILEAN SATELLITES 1640 INK 3:FILL 1 

1030 REMark OF JUPITER 1650 CIRCLE 74.3,49,1.1,.3,1.9 
1040 REMark (c) Albert Arranz Cortés 1660 FILL O 

1050 REMark BARCELONA 1989 1670 REPeat BUCLE 

1060 REMark [100K KKK ROKK ROKR OK KKK OK 14680 X=COS(CxD) KA: Y=SIN(CxXD)*B 
1070 : 1690 C=C+H 

1080 INIVAR 1700 INK 7:POINT X+73,Y+50 

1090 INIMES 1710 K=CODE ( INKEY$(0)) 

1100 PRESENTACIO 1720 IF K=32:GO TO 1110 

1110 PTEMPS 1730 INK O:POINT X+73,Y¥+50 

1120 CALCULA 1740 END REPeat BUCLE 

1130 JUPITER1 1750 CSIZE 1,0 

1140 ; 1760 END DEFine PRESENTACIO 

1150 DEFine PROCedure INIVAR i770 : 

1160 DIM DM(12),DN(12) 1780 DEFine PROCedure PTEMPS 

1170 A=50:B=5:C=0:D=PI/180 1790 CLS#6 

1180 H=4:P=-1:Y=40 1800 INK 4:UNDER 1 

1190 FC=2:I1T=1:T$="h" 1810 CURSOR 210,40 

1200 END DEFine INIVAR 1820 PRINT "ENTER DATE" 

1210 +: 1830 CURSOR 164,53 

1220 DEFine PROCedure INIMES 1840 PRINT “IN U.T. (Univesal Time)" 
1230 =-1:L=0:DI=0 1850 UNDER O:INK 7 

1240 RESTORE 1290 1840 CURSOR 100,80 

1250 FOR M=1 TO 12 1870 INPUT "1) Year in full (nnnn):"!ANY 
1260 READ DM(M) 1880 IF ANY MOD 4=0:DM(2)=29 
1270 DN(M)=DM(M) 1890 IF LEN (ANY)<>4 

1280 END FOR M 1900 INK O:CURSOR 292,80:PRINT ANY 
1290) DATA 31,28,31,30,31,30 1910 INK 7:GO TO 1860 

1300 DATA 31,31,30,31,30,31 1920 END IF 

1310 END DEFine INIMES 1930 CURSOR 100,100 

1320 ; 1940 INPUT "2) Month (1-12):"!MES 
1330 DEFine PROCedure PRESENTACIO 1950 IF MES>12 OR MES<1 

1340 MODE 4:WINDOW 512,256,0,0 1960 INK O:CURSOR 235,100 

1350 PAPER O:INK 7:CLS 1970 PRINT MES: INK 7:GO TO 1930 
1360 OVER 1 1980 END IF 

1370 OPEN#3,SCR_5i2XS0A0XO 1990 CURSOR 100,120 

1390 OPEN#S,SCR_286X36A110X200 2010 IF DIA<1 OR DIA>DM( MES) 
1400 OPEN#6,SCR_414X200A48X36 2020 INK O:CURSOR 220,120 

1410 BORDER#6,2,7 2030 PRINT DIA:INK 7:GO. TO 1990 
1420 INK 3 2040 END IF 

1430 FOR X=160 TO 175 2050 DM(MES)=DIA+1 

1440 Y=vel 2060 CURSOR 100,140 

1450 IF X=175:INK 5 2070 INPUT °4) Time (0-23):"'HOR 
1460 CSIZE 2,1:CURSOR X,Y 2080 IF HOR>23 OR HOR<O 

1470 PRINT "J UP ITE R" 2090 INK O:CURSOR 226,140 

1480 PAUSE 1 2100 PRINT HOR:INK 7:GO TO 2060 
1490 END FOR X 2110 END IF 

1500 OVER O 2120 CURSOR 204,190 

1510 CSIZE 0,O0rINK 7 2130 PRINT "Please wait? 

1520 CURSOR 200,Y¥+23 2140 END DEFine PTEMPS 

1530 PRINT “and its satellites” 7150 : 

1540 CSIZE 1,0:INK 3 2160 DEFine PROCedure CALCULA 
1550 CURSOR 185,180 2170 IF ANY=1985:GO TO 2320 

1560 PRINT “by Albert Arranz" 2180 IF ANY>1985:GO TO 2260 

1570 CURSOR 145,200 2190 FOR AN=ANY TO 1984 

1580 PRINT "(c) Copyright 1989 Ver 3.01" 2200 IF AN MOD 4=0 

1590 CURSOR 193,218 2210 ND=366:ELSE :ND=365 

1600 PRINT "- PRESS SPACE -” 2220 END IF 

1610 INK 4:FILL 1 2230 DI=DI-ND 
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2240 END FOR AN 

2250 GO TO 2320 

2260 FOR AN=1985 TO ANY-1 

2270 IF AN MOD 4=0 

2280 ND=3466:ELSE :ND=365 

2290 END IF 

2300 DI=DI+ND 

2310 END FOR AN 

2320 FOR ME=1 TO 12 

2330 IF ME>MES~1 

2340 DI=DI+DIA:GO TO 2390 

2350 END IF 

2360 ND=DM(ME) 

2370 DI=DI+ND 

2380 END FOR ME 

2390 HO=(D1I*24)+HOR 

2400 END DEFine CALCULA 

2410 : 

2420 DEFine PROCedure JUPITERL 

2430 CLS 

2440 INK 4:FILL 1 

2450 CIRCLE 73,50,2.22 

2460 FILL O 

2470 AI=16.22308:46=25,.82308 

2480 AG=41.19231:AC=72.46154 

2490 BI=AIk(-.17):BE=AEXK(-.17) 

2500 BG=AGK(-.17):BC=ACK(-.17) 

2510 CAPSALERA 

2520 INK 7 

2530 CURSOR 170,65 

2540 PRINT "JUPITER AND SATELLITES” 

2550 INK 4 

2560 LINE 1,32 TO 1,48 

2570 LINE 32,32 TO 32,48 

2580 LINE 89,32 TO 89,48 

2590 LINE 98,32 TO 98,48 

2600 INK 7 

2610 CURSOR 0,175:PRINT "Callisto" 

2620 CURSOR 106,175:PRINT "Ganymede" 

2630 CURSOR 305,175:PRINT "Io": 

2640 CURSOR 336,175:PRINT "Europa" 

2650 LINE 124,0 TO 124,5 

2660 LINE 124,5 TO 21,5 

24670 LINE 21,5 TO 24,0 

2680 LINE 21,0 TO 124,0 

2690 INK 4 

2700 CURSOR 90,245:PRINT "YEAR:" 

2710 CURSOR 191,245:PRINT "MONTH:" 

2720 CURSOR 281,245:PRINT "DAY:" 

2730 CURSOR 357,245:PRINT "TIME:" 

2740 INK 7 

2750 REPeat BUCLE 

2760 T=(2¥P1/42.47665) *(HO-979.85) 

2770 VI=(HO-979.85)/42.47665 

2780 I=I-(2kPIKINT(VI)) 

2790 E=(2*P1/85.29826) *(HO-1045.2) 

2800 VE=(HO-1045.2)/985.29826 

2810 E=E-(2*PIKINT(VE) ) 

2820 G=(2eP1/171.9933)%*(HO-1048.65) 

2B30 VG=(HO-10486.65)/171.9933 

2840 G=G-(2*PI*INT(VG) } 

29850 C=(2*P1/402.0853) *(HO-1183.417) 

2860 VC=(HO-1183.417)/402.0853 

2870 C=C-(2kPI*XINT(VC)) 

2880 INK 3 

2890 CIRCLE 73,50,AT,.17,1.57 

2900 CIRCLE 73,50,AE,.17,1.57 

2910 CIRCLE 73,50,AG,.17,1.57 

2720 CIRCLE 73,50,AC,.17,1.57 

2730 INK 7 

2940 CURSOR 133,245:PRINT ANY 

2950 CURSOR 242,245:PRINT MES;" " 

2940 CURSOR 316,245:PRINT DIA;" " 

29770 CURSOR 400,245:PRINT HOR;" " 

2980 XI=SIN(CI)*AI:WI=73+XI 

2990 XE=SIN(E) *AE:WE=73+XE 

3000 XG=SIN(G)*AG:WG=73+XG 

3010 XC=SIN(C) ¥*AC:WC=73+XC 

3020 ¥YI=COS(1I)*BI:Z1=50+YI 
Sinclaix/QL World November 1989 


3030 YE=COS(E)*BE: ZE=S0+YE 
3040 YG=COS(G)*BG:ZG=50+YG 
3050 YC=COS(C) *BC: ZC=50+YC 
3060 POINT WI,ZI:POINT WE, ZE 
3070 POINT WG,ZG:POINT WC,ZC 
3080 IF J=1 

3090 IF L=1:JUPITER2:L=0 
3100 END IF 

3110 K=CODE ( INKEY$(P) ) 

3120 SELect ON K 


3130 =9: INIMES:CLS: BORDER#6,2,7 
3140 GO TO 1110 

3150 =27 =NEW 

3160 =32:L=1:GO0 TO 3340 

3170 =232:P=0:G0 TO 3340 

3180 =236:P=-1 

3190 =240:J=1:J1=0:G0 TO 3260 
3200 =244:J=0:G0 TO 3240 

3210 =101,69:INCR 

3220 CURSOR#S , 245,20 
3230 PRINT#3,7T% 

3240 GO TO 3110 


3250 END SELect 
3260 IF J=1 


3270 JUPITER2 

3280 ELSE 

3290 IF J=0 

3300 CLS#5:BORDER#S,1,0 


3310 END IF 

3320 END IF 

3330 IF P<>0:G0 TO 3110 

3340 IF IT=1 

3350 HOR=HOR+1 s HO=HO+1 =: MTEMPS 
3360 END IF 

3370 IF IT#2 

3380 DIA=DIA+1:HO=HO+24 :MTEMPS 
3390 END IF 

3400 INK 0 

3410 POINT WI,ZI:POINT WE,2ZE 
3420 POINT WG,ZG:POINT WC,2C 
3430 END REPeat BUCLE 

3440 END DEFine JUPITER1 

3450 : 

3460 DEFine PROCedure JUPITER2 
3470 BORDER#5,1,7 

3480 IF J1i=1:CLS#4:GO TO 3490 
3490 INK 7:FILL 1 

3500 CIRCLE 73,15,1.16 

3510 FILL O 

3520 POINT (XI/FC)+73,15 

3530 POINT (XE/FC)+73,15 

3540 POINT (XG/FC)+73,15 

3550 POINT (XC/FC)+73,15 


3560 Ji=1 
3570 END DEFine JUPITER2 
3580 : 


3590 DEFine PROCedure CAPSALERA 

3600 PAPER#3,0:INK#3,3 

3610 BORDER#3,2,7:CLS#3 

3620 CSIZE#3,0,0 

3630 CURSOR#3,36,6 

3640 PRINT#S3,"«F1» Continued orbit |" 
3650 CURSOR#3,183,6 

3660 PRINT#3,"«F2» Stop continued orbit 
3670 CURSOR#3,361,6 ¢ 

3680 PRINT#3,"«F3» Zero degrees" 

3690 CURSOR#3,18,70 

3700 PRINT#3,"«F4» Erase plane |" 
3710 CURSOR#3,131,20 

3720 PRINT#3,"«SPACE» Forward 1 i” 
3730 CURSOR#3,268,20 

3740 PRINT#3,"“TAB» New date |" 

3750 CURSOR#3,368,20 

3760 PRINT#3,"GESC» Exit to BASIC " 
3770 CURSOR#3,18,33 

3780) PRINT#3,"«E» Interval increment" 
3790 CURSOR#3,155,33 

3800) PRINT#3,"change (1h / 1d) {" 
3B10 INK#3,7 


" 


39 
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S820 


3840 


3850 DEFine PROCedure INCR 


3860 
38790 
3880 
3890 
3900 
S910 
3920 
3930 
940 
3950 
2950 


CURSOR#3, 268,33 
PRINT#3,““H) 1h 1 
CURSOR#S, 374,33 


END IF 


END IF 


ne of the most annoying fea- 

tures of the QL is that there is 

no audio feedback from the 

machine when a_ key is 

pressed. When you are typing- 
in a program, for instance, you have to 
keep glancing at the screen tosee if the OL 
has responded. To combat the deficiency I 
wrote Pip, 

Pip is an easy-to-use extension to the 
QL system. All that is needed is to type-in 
the SuperBasic program, RUN it and 
SAVE the machine code produced on to a 
Microdrive cartridge, To link-in the prog- 
ram, enter the following: 
p=RESPR (110) 

LBYTES mdvyl_pip—bin, p 
CALL p 

From then, every time a key is pressed — 
except CTRL, ALT and SHIFT on their 
own — the loudspeaker will respond with a 


mdvi_pip_boot 1988 Aug 10 21:13: 


38 Wed 


100 p=RESPR(110) 


110 LBYTES mdvi1_pip_bin,p 


120 CALL p 


mdvil_pip_prog 1988 Aug 10 21:12: 


18 Wed 


100 p=RESPR(110):tot=0: RESTORE 


110 piteh=5: duration=100: REMark 
both must be <256 


CURSOR#3, 245, 20:PRINT#3,7T& 
3830 END DEFine CAPSALERA 


«D» lid [" 


PRINT#3,"«ESC» Abort comand" 

T$=CODE (INKEYS(-1)) 

IF I%=72 OR I1%=104 
IT=1L:TS="h":GO TO 3990 


IF I$=48 OR I$=100 
IT=2:T$="d"':GO TO 3990 


3970 
Zt9B0 
3990 
4000 
4010 
4020 


4040 


4060 
4070 
4080 
4090 
4100 


IF 1%=27:60 TO 3990 
60 TO 3900 
CURSOR#S , 268,33 
PRINT#S3," 

CURSORH3, 374,33 
PRINT#3," 

4030 END DEFine INCR 


4050 DEFine PROCedure MTEMPS 

IF HOR>23:HOR=0:DIA=DIA+1 
IF DIA>DN( MES) 
DIA4=1:MES=MES+1 

END IF 

IF MES>12:MES=1:ANY=ANY+1 


4110 END DEFine MTEMPS 


PIP by Matthew Arends — 


‘pip’. For the sake of speed, when a key is 
held down and auto-repeats, only the 
initial ‘pip’ will be heard. Pip will not 
interrupt a sound already playing. Pip 
should be compatible with every QL 
program. As an example it is easy to use 
Pip with QL Quill on an expanded 
machine. To turn off pip, use the com- 
mand: 


CALL p+18 


Pip can be restarted with CALL p and 
so on. The pitch and duration of the pip 
can be altered by changing the variables in 
the SuperBasic program before it is RUN 
or by issuing the following commands 
once it has been installed: 


POKE p+90, pitch 


and/or 
POKE p+94, duration 


Both must be byte-sized — smaller than 
256. It is impossible to have a duration of 
longer than 255 units. To do this the 
original duration must be split into two 
numbers, lo and hi, where: 


hi = duration VID 256 and 
lo = duration MOD 256 


Then: 
POKE__W p+94, lo*256+hi 

To return to using byte-sized durations, 
remember to POKE p+95,0 first. For 


maximum ease of usc, put the Pip loading 
routine in your Boot program. 


180 INPUTE£0O, 'Insert cartridge in 


to mdv1 and press ENTER’; af 
190 SBYTES mdvi_pip_bin,p,119 


4u,28700 


701,20033 


200 CALL p 
210 DATA 17402, 26,16890, 94, 8521, 


220 DATA 20033, 20085,16890, 80, 28 


230 DATA 20085, 28672, 20033,12328 


52,144 


,140,21248 
240 DATA -20376,144, 26112, 30,213 


* 


she Ce eT ar 


i 
; 
i 
i 


120 FOR a=p TO p+98 STEP 2 


250 DATA 18426, 2h, 28689, 20033, 20 
49,1,26112 

260 DATA 10,18426,16, 28689, 20033 
,20085,256 

270 DATA -21846, -218H46, 512, 2568, 
0,-21846 

280 DATA pitch*256,0,duration*25 
6,0,256 


130 READ b 

140 POKE_W a,b 

150 tot=tot+b 

160 NEXT a 

170 IF tot<>428018+pitech*256+dur 
ation*256: PRINT£0, 'ERROR IN DATA 
':STOP 
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inQL is a bingo-callers’ utility. 

For the non-conversant, in the 

game of bingo numbers between 

one and 90 are called in random 
order and no number is repeated. Players 
have individual cards, each containing a 
different set of 15 of the 90 numbers. The 
game is controlled by the caller, who calls 
the numbers as they appear. The first 
player to mark all 15 numbers on a card is 
the winner. 

The program is written for a domestic 
TV set, so select F2. Option 1 on the menu 
generates the numbers 1 to 90 in random 
order. The numbers are displayed at the 
bottom centre of the screen as each is 
generated. The next number is not gener- 
ated until a key is pressed. This also 
transfers the previous number into its 
location on the grid. The 0 key must be 
pressed again to end the game and display 
the menu. If Option 2 is selected from the 


1800 REMark 
1010 : 
1@20 REMark 
1030 : 

1040 : 
105@ 
1@4@ 
1070 
128@ 
1098 
110@ 
1110 
1120 
Pa Ng ed 


REMark 


BORDER 


to 


the last call."\\,"3 


last call." 
1130 
1140 
1158 
1160 
1170 
1188 
1190 
1200 
1210 
1220 
1230 


menu 


REMark 


at='1 
as=* 


menu all the 90 numbers are shown in the 
random order of the last game. 

The kernel of the program is the 
interaction between a string <bag$ and an 
array <s$>. String <bag$> starts the game 
containing the 90 numbers. The array <s$> 
consists of 90 two-digit strings. The num- 
bers are, in effect, transferred one at a 
time from the string to the array. It is an 
important feature of the program that at 
the end of the game <bag$> is a null string, 
while the array contains all the numbers in 
the random order of the CALLOUT and 
of the ‘completion of transfer’ loop. 
1450: random number nis generated from 

the set 1 to 90. The highest number is 

deleted every circuit of the loop. 

1460: string <s$> (count) is made equal to 
the nth in the queue in string <bag$>. 
1470: checks if the nth number is the last 

in the string. If so... 
1480: ... it is removed. 


BINGL by Vic Newton 


1500: if it is not the last number, it is cut 
out and the resulting two pieces of the 
string are joined, 

So the queue of numbers in <bag$> is 
reduced by one every circuit and the 
length of the queue is always the same as 
the maximum value of n. No repetition is 
possible. 

Long blocks have been used to produce 
the grid. 

1380 CURSOR 28,6: are the pixel co- 
ordinates for PRINTing in the top left 
location — trial and error discovery. 

1620 CURSOR 28+s$(count, 1)*40, 6+ 
s$(count, 2)*16. Note the 28 and 6. The 
40 and 16 are the STEPs used for the 
grid generation. s$(count, 1) is the first 
digit of s$(count) and s$(count, 2) the 
second digit. j 
‘he PROCedure printcall can be omit- 

ted. It would anyway have to be modified 

to suit spécific printers. It is used to study 
the ‘randomness’ of the numbers. 


€A BINGO CALLERS UTILITY 


MODE 8:PAPER#1,1:CLS 
count=@: RANDOMISE: menu 


scr 420x18@a44x25 
#4,17,1 


PAPER#4,1: INK#4,7:CLS#4 
PRINT#4\\, " 


MEN U"\\\"ENTER 
START"\\,"2 
for printout 


at=INKEY# (-1) 
at='@’°THEN STOP 

“AND count<>@ THEN shakebag 

1°AND count=@ THEN initialise 

a%='2°THEN listcall 

ag=‘3 


“THEN printcall 


END DEFine menu 


DEFine PROCedure menu 
OPEN#4, 


a to Ex! 


for listing of"\," 


of"\," the 


DEFine PROCedure initialise 
LET backup#="@010203040506070809101112713141516 


17181920212223242526272829303132333435363738394041 
424344454647 48495051525354555657585960616263646566 
676869707172737475767778798081828384858687888790": 


bag# = 
1248 
1250 
1260 
127@ 
1280 
1298 
13008 


call_out 


REMark 


REMark 
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END DEFine 


CLS: CLS#@: 


backup$:DIM s#(9@,2) 


initialise 


DEFine PROCedure call_out 
LOCal loop,zero,a#,n,x,yv,k,i3 


Set up the grid 
count=0 


— 


P-ROGS 


1310 FOR x~=20 TO 44@ STEP 408 
1320 BLOCK: 2 260 50% 2 57 
1330 NEXT x:END FOR x 
1340 FOR y=2 TO 170 STEP 16 
1350 BLOCK 400@,2,20.,y,7 
13408 NEXT y:END FOR y 
1370 REMark ... Mark unwanted locations ... 
1380 CURSOR 28,46:PRINT "<>" 
13970 FOR k=22 TO 1580 STEP 16 
1400 CURSOR 388,k:PRINT "<>" 
1410 NEXT k:END FOR k 
1420 REMark .. Start picking the numbers .. 
1430 REPeat loop 
1446 count=countt+il 
1450 n = RND (1 TO 91i-count) 
14408 s#(count) = bagt#(2*n-1 TO. 2*n) 
1470 IF LEN (bag#)<2*n+1 THEN 
1480 bag#=bag#(1 TO 2*n-2) 
1498 ELSE 
1580 bag#= bag#(1 TO 2#n-2)&bag#(2*n+1 TO) 
i510 END IF 
i520 AT 17,1:PRINT count-i;" calls made" 
1530 AT 17,2@: PRINT “Last call No *“ss#tcount-1) 
1540 AT 218,12:PRINT "CALL “3: FLASH: PePRINT sic 
ount)s:sFLASH @:PRINTs". NEXT” 
1550 AT 19,1:PRINT "Fress a key to continue (8 
to QUIT)" 
1568 at=INKEY#(-1) 
1578 REMark .. The normal exit at end of game . 
158a IF at='@*° THEN 
1590 AT to 4 SPRIne 
"EX LT: iLeop 
1602 END -TF 
1610 REMark -- Place number in its location .. 
1620 CURSOR 28+s#(count,1)*40,46+s#(count,2) #16: 
PRINT s#(count) 
1630 3: 
1648 REMark --.- Compulsory exit if ail the 
90 numbers are displayed in the grid ... 
1658 =: 
1468 IF count=98@ THEN 
1470 AT 17,1:PRINT 9@:AT 17,33:PRINT s#count 
) 
1680 AT 18,8:PRINT"Al1 numbers displayed” 
1490 AT «195122 PRINT" PRESS THE ‘@’ KEY 
1700 REPeat zero 
1710 at=INKEYS(-1) 
1720 IF at='’@'THEN EXIT zero:END IF 
1730 END REFeat zero 
1740 EXIT loop 
1750 END IF 
1740 END REPeat loop 
177@ REMark .. Transfer all the remaining numbers 
in bag# to the array <s#> .. 
1780 FOR j=count+i TO 96 
1790 nm=RND (1 TO 91-j) 
1800 s#(j)=bag#(2*n-1i TO 2*n) 
1810 


IF LEN (bag#)<2*n+1 THEN 
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fai [ii faifar|ai[si| [rifei[o. 
-T| | _lez}selez|-2} [o 
[Test [as [ssles|rsfes[ > 
[is [2a [aa] aa[sa les] rales] o. 
[—fisf2s[es| [ss] _|rs} [o 
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Se SRE SR ae 
SSiUSS SSCS SCS SCS 
jez} iz|22|s2|  |s2je2t Te 
[es] | | | ssies| 73] [<> 
Gk SS Sas ES Se A ae RS SE 
[e515] [3s] [estes] [ss]. 
jas[ie] [se] | | elas oo | 
CARR REZ OAD BS RRS 
jes |ie|ze] | |seles] Testo. 


43 calle made Last call Ho S¢4 So COlLkS merce Last call No 62 
CALL Sé& MEXT CALL 12 HERT 
Press a key to continue (@ to QUIT> Press a key to continue «@ to QUIT) 


call was 


PRESS 


fEntry 43) Last call wos 62 “Entry 55> 
ANY KEY FOR MENU PRESS ANY KEY FOR MEHMU 


bag#=bag#(1 TO 2#n-2) 


1830 ELSE 

18408 bag#=bag#(i TO 2¥n-2) &bag#(2*n+1 TO ) 
1850 END:.-iF. 

1860 NEXT j:END FOR j 

1870 REMark The bag is now empty ie bag#="" 


1880 gameover 

1898 END DEFine call_out 

a POG ORE Te es bas nw we Wiw seh. beaten 8 Wipe ete ees ene ars Wa ahe<or erate 
191@ DEFine PROCedure gameover 

1920 AT. 19,1T3PRINT ? 


1930 CLS#O:PRINT#@," GAME OVER. Press any key f 

or menu" 

1940 PAUSE 

1950 CLS#@:CLS:menu 

1960 END DEFine gameover 

GR OT. Ash deahe elk daa a % ae Be ae ae ek ee ee 
198@ DEFine PROCedure shakebag 

1990 LOCal j 

2000 bag#=backup# 

2010 REMark .. The 98 numbers now in <bag#> are 
put in the random order of the last game .. 

2020 FOR j=1 TO 908 

2030 bag#(2*j-1 TO 2*j)=s¢(j) 

2040 NEXT j:END FOR j 

2050 call_out 

206@ END DEFine shakebag 

m1 ORE ae he eo 6 ek a A ae ee Oe ee 

208@ DEFine PROCedure listcall 

2090 LOCal i 

2100 CLS#4 
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2110 IF count=@ THEN PRINT#4\\\3" No call has be 
en made":PAUSE 10@8:menu:END IF 

2120 FOR i=1 TO 9O:PRINT#4: 's$(i)! 

2138 END FOR i 

2148 IF count=9@ THEN LET count=91:END IF 

215@ PRINT#4:PRINT#4; " Last call was "3s#(count 
—1)3" CEntry"!count—-1;3;")"! 

2160 PRINT#4\\\3 " PRESS ANY KEY FOR MENU" 
21708 PAUSE: menu 

218@ END DEFine listcall 

2190 REMark wucnnnesnteunreceseneannetnanneawesanease 
2200 DEFine PROCedure printcall 

2210 LOCal i 

2220 IF count=@ THEN CLS#4:PRINT#4\\\3" No call 
has been made":PAUSE 1@@:menu:END IF 

2230 OPEN#5,par 

2248 PRINT#5;CHR#(27)3;"E"3;:REMark emphasized pic 


a 

2258 PRINT#5; CHR$(27)3"1"3CHR#(@);3:REMark left m 

argin at @ 

2260 PRINT#5; CHR$(27)3"N"3;CHR#(6)3:REMark sets s 

kip perforations (6@ lines per page) 

2278 FOR i=1 TO 9@:PRINT#535$(1);3° a | 

22980 END FOR i 

2298 IF count=9@ THEN LET count=91:END IF 

2300 PRINT#S; ‘ Last call was ‘’ss#(lcount-1)3s'° ¢ 

Entry No ‘scount-1;3’') ‘:PRINT#5S 

2310 CLOSE#S: menu 

2320 END DEFine printcall 

Z2on8 REMark ecauneck ras were menr ee earewvuennemeanocavase 
END OF PROGRAM 


a ne ee ne a a  —— — a wh 


Sinclair QL World. Which PC. The critical 
Support for the User. Official title for PC Buyers’ Guide. 
ever-popular QL. £1.75. CPC Users. £1.25. £1.45. 


FOCUS MAGAZINES, 
THERE'S ONE FOR EVERY 
COMPUTER USER 


Fr I I el bo, | 
| Order your copy from your 
newsagent today. Subscriptions 
I available. Focus Magazines, | 
; | Greencoat House, Francis | 
Amstrad PCW. Official Amstrad PC. Official Popular Computing | Street, London SW1P 1DG. | 
ad 


title for Amstrad 8000 title for Professional users. Weekly. News, views, Tel; 01-834 1717. 
and 9000 series. £1.45. £1.50 advice. PLUS Computer eS 


Gamesweek, 70p. 


THE 3RD NORTHERN 


HOME COMPUTER 
SHOW 


Over 35 stands for the home computer user 
Featuring all the major QL suppliers including 
Sector Software 

QL hardware, software, peripherals, printers, 
disk drives and games 

Restaurant and bar open all day 

Easy access by road and rail and bus 
Admission only £1.50 

The ONLY Christmas micro show for QL owners 


Don’t miss the last chance to pick up your Christmas QL Goodies at the Third Northern Home 
Computer Show on Saturday 2nd December at Stokes Hall, Church Road, Leyland, 
Lancashire. Doors open 10am until 5pm. 

For further information contact the organiser, David Batty on Leyland (0772) 454328 


ORGANISED BY - 


aoc Software 


The best programs and peripherals for the QL 


